>>594 そら酒一択よ 0672動け動けウゴウゴ2ちゃんねる2012/04/16(月) 23:24:02.53ID:Zi0dhxYYi 全力でいくは 0673動け動けウゴウゴ2ちゃんねる2012/04/16(月) 23:26:56.58ID:x2q6svcaP>>670 For Each cell In Selection
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if フラグ立ってたら Target.Interior.Color = vbBlack end if End Sub 0699動け動けウゴウゴ2ちゃんねる2012/04/16(月) 23:57:03.08ID:x2q6svcaP>>697 エクセルってむしろグラフ作るんちゃうん(@´,,・ω・,,`@)? 0700[―{}@{}@{}-] 動け動けウゴウゴ2ちゃんねる2012/04/16(月) 23:58:19.35ID:hgl6dYvBP>>696 SelectCellやvarに代入が行われるためにはif文に入らなきゃならないのに、 if文に入る条件が「SelectCellとvarが異なること」だからIf内の文が実行されることは永遠にないと思う 0701動け動けウゴウゴ2ちゃんねる2012/04/16(月) 23:59:32.28ID:MRZ/Uq4n0 人生をグラフ化したらピークが生まれたときだった 0702動け動けウゴウゴ2ちゃんねる2012/04/16(月) 23:59:51.81ID:oXo04Xyf0 VBAって懐かしいわ ゲムアドのエミュか 0703動け動けウゴウゴ2ちゃんねる2012/04/17(火) 00:04:48.21ID:2fdJ0ZxuP>>700 あー、コード通りならそうなんやろなー(@´,,・ω・,,`@) VBの初期化ってどうなるか知らへんけど(@´,,・ω・,,`@) 0704ままかり2012/04/17(火) 00:06:18.31ID:fyxbEkWMP?PLT(12508) なるほど! 0705動け動けウゴウゴ2ちゃんねる2012/04/17(火) 00:07:05.68ID:2fdJ0ZxuP>>704 VBの文字列比較が<>なら下で動くんちゃうかー(@´,,・ω・,,`@)?
Sub paint() Dim SelectCell As String Static old As String
SelectCell = Selection.Address
If old <> SelectCell then Selction.Interior.Color = vbBlack old = SelectCell If end End Sub 0706[―{}@{}@{}-] 動け動けウゴウゴ2ちゃんねる2012/04/17(火) 00:07:49.28ID:CdjvhYtcP>>704 if内の文が実行されないだけならフリーズはしないから、 たぶんpaint()の呼び出し方法に問題があって無限ループしてるんだと思うよ 0707動け動けウゴウゴ2ちゃんねる2012/04/17(火) 00:08:16.06ID:2fdJ0ZxuP ちうか、>>698 の感じでええと思うんやけどなー(@´,,・ω・,,`@) 0708動け動けウゴウゴ2ちゃんねる2012/04/17(火) 00:08:37.49ID:s99wOBFSP モペキチ現役復帰なうか 0709動け動けウゴウゴ2ちゃんねる2012/04/17(火) 00:09:12.42ID:2fdJ0ZxuP>>706 モペキチとVBAが結びつかへんなー(@´,,・ω・,,`@) 何に使うん(@´,,・ω・,,`@)? 0710動け動けウゴウゴ2ちゃんねる2012/04/17(火) 00:09:53.75ID:JhhsPt+T0 ここが本スレか 0711ままかり2012/04/17(火) 00:11:26.51ID:fyxbEkWMP?PLT(12508) paint()はどこからも呼び出してないです