« 2007年9月 | トップページ | 2008年8月 »

2008/07/22

[マクロ]上のセルの値で空白セルを埋める

上のセルの値で空白セルを埋めるExcelVBAマクロです。
c.textには代入できないので、"c.Value="にする必要があります。


Sub FillInCells()
For Each c In Selection
If c.Text = "" Then
c.Value = c.Offset(-1, 0).Text
End If
End Sub

| | コメント (0) | トラックバック (0)

2008/07/19

チェブラーシカ

チェブラーシカ
着ぐるみって言うな!

| | コメント (0) | トラックバック (0)

2008/07/13

ガントチャート色塗り(超ハードコーディング)

EXCELで作るガントチャート色塗りマクロ(超ハードコーディング)


2行目に日付
3列目に開始日
4列目に終了日


Sub PaintGanttChart()
For r = 4 To 136
If ActiveSheet.Cells(r, 1) = True Then
For col = 7 To 60
ActiveSheet.Cells(r, col).Interior.ColorIndex = xlNone
If ActiveSheet.Cells(2, col).Value >= ActiveSheet.Cells(r, 3) _
And ActiveSheet.Cells(2, col).Value <= ActiveSheet.Cells(r, 4) Then
ActiveSheet.Cells(r, col).Interior.ColorIndex = 35
End If
Next
Else
For col = 7 To 60
ActiveSheet.Cells(r, col).Interior.ColorIndex = xlNone
Next
End If

Next
End Sub

| | コメント (0) | トラックバック (0)

2008/07/12

グラフに色づけ

久々の投稿です。職場からアップできないので (^^;

Excelの棒グラフ・円グラフでお気に入りの配色に設定するマクロです。
(やっつけ仕事なのでそのうち改良予定)


Sub BoarderChartColoring()
With ActiveChart
.SeriesCollection(1).Interior.Color = RGB(255, 153, 0)
.SeriesCollection(2).Interior.Color = RGB(0, 153, 204)
.SeriesCollection(3).Interior.Color = RGB(204, 204, 0)
.SeriesCollection(4).Interior.Color = RGB(153, 204, 255)
.SeriesCollection(5).Interior.Color = RGB(204, 153, 255)
.SeriesCollection(6).Interior.Color = RGB(178, 178, 178)
.SeriesCollection(7).Interior.Color = RGB(253, 153, 153)
For i = 1 To 7
.SeriesCollection(i).Border.LineStyle = xlNone
Next
End With
End Sub

Sub PieChartColoring()
With ActiveChart.SeriesCollection(1)
.Points(1).Interior.Color = RGB(255, 153, 0)
.Points(2).Interior.Color = RGB(0, 153, 204)
.Points(3).Interior.Color = RGB(204, 204, 0)
.Points(4).Interior.Color = RGB(153, 204, 255)
.Points(5).Interior.Color = RGB(204, 153, 255)
.Points(6).Interior.Color = RGB(178, 178, 178)
.Points(7).Interior.Color = RGB(253, 153, 153)
End With
End Sub

| | コメント (0) | トラックバック (0)

« 2007年9月 | トップページ | 2008年8月 »