Excel VBA質問スレ Part9

Excel VBA質問スレ Pa ..

911:デフォルトの名無しさん
09/02/14 22:29:07
>>909
なるほど！
調べたけど分からなかったことが分かりました！
ありがとうございます！

912:デフォルトの名無しさん
09/02/14 22:50:20
┐(´ー｀)┌

913:デフォルトの名無しさん
09/02/14 22:59:06
グラフ範囲
=Sheet1!$O$3:$T$3,Sheet1!$O$5:$T$269
をマクロで実行するためにはどうすればいいですか？

myC = Range("L2")
ActiveChart.SetSourceData Source:=Sheets("Sheet1")
.Range("$O$3:$T$3", "$O$5:$T$ & myC")
, PlotBy:= _ xlColumns

で動きません。

よろしくお願いします。

914:デフォルトの名無しさん
09/02/14 23:12:30
マルチすんな

915:デフォルトの名無しさん
09/02/15 01:10:16
定数戦隊
vbRed
vbBlue
vbGreen
vbYellow
vbPink

敵か味方か、謎の戦士
vbBlack

916:デフォルトの名無しさん
09/02/15 22:38:43
エクセルで、全シートに同様の処理を反映させたいのですが

Worksheets.Select

For 行番号 = 2 To 10
.Cells(行番号, 列合計).Value = _
.Cells(行番号, 列数量).Value * Cells(行番号, 列単価).Value

Next 行番号

と書くと「.cellsが不正」と言われます。
どのあたりがおかしいのでしょうか。

917:デフォルトの名無しさん
09/02/15 23:04:53
with で囲んでないのに、何でピリオドから始まってるの？

918:デフォルトの名無しさん
09/02/16 13:53:54
質問させてください
以下の様な入力があった際に
A列は（A,1）だけ文字色を黒に、それ以下はすべて指定色に変更
B列は（B,1）が文字色黒、（B,2）（B,3）が指定色
(B,4)が文字色黒、(B,5)(B,6)(B,7)が指定色
になるようにしたいのですが、どのように実装すれば良いのでしょうか

A　　 B　　 C
ore　 kimi　 warota
ore　 kimi　 warota
ore　 kimi　 warota
ore　 dare　 warota
ore　 dare　 warota
ore　 dare　 warota
ore　 dare　 warota

919:デフォルトの名無しさん
09/02/16 14:20:01
>>918
マクロの記録してから質問しろ

920:デフォルトの名無しさん
09/02/16 14:40:30
なんか色々アレしてたら突破口が出来ました
スレ汚し失礼しました。

JavaとかCを軽くやっただけだったので
喜んで引き受けたんですが
スコープは分かりにくいし、なんか予約語？っぽいのがもうわかんなくて。。。
ま、すいませんでした、自力でなんとかしまウィッシュ

'2行目から終端までループしましょう
For i = 2 To LAST_ROW
'テーマが全項目と同じか調べる
'次の行のテーマを変数に入れときます
THEME_NEW = Worksheets("Sheet1").Range("A" & i).Value

'前の行と現在参照している行が異なる場合
If THEME_NEW <> THEME_OLD Then
Worksheets("Sheet1").Range("A" & i).Font.colorIndex = 3
Else
Worksheets("Sheet1").Range("A" & i).Font.colorIndex = 1
End If

THEME_OLD = THEME_NEW
Next