Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57867 / 76732 ←次へ | 前へ→

【23599】ループのやり方が良く分かりません
質問  超初心者  - 05/3/29(火) 20:58 -

引用なし
パスワード
   はじめまして、VBAの超初心者です。
本当に始めたばかりなのですが、どなたか教えて下さい。

XXX*(*以降は違う文字が入る)を検索して、数式
"=((rc[-1]*rc[-2])-((rc[-1]*rc[-2])*2))"
で計算させる。
このマクロをデータのまで最後まで(値は変動する)
ループさせるには、どうしたら良いでしょうか?

Sub TEST()
 
 Sheets("TEST").Select
 Cells.Find(What:="XXX*", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
  Selection.End(xlToRight).Select
  ActiveCell.FormulaR1C1 = "=((rc[-1]*rc[-2])-((rc[-1]*rc[-2])*2))"
  
  End Sub
0 hits

【23599】ループのやり方が良く分かりません 超初心者 05/3/29(火) 20:58 質問
【23600】Re:ループのやり方が良く分かりません ponpon 05/3/29(火) 21:54 回答
【23601】Re:ループのやり方が良く分かりません 超初心者 05/3/29(火) 22:17 お礼

57867 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free