Excel VBA質問箱 IV

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

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


8101 / 13644 ツリー ←次へ | 前へ→

【35131】計算式の入っているセルを上から順に検索する方法 taro 06/2/22(水) 9:49 質問[未読]
【35133】Re:計算式の入っているセルを上から順に検... ぱっせんじゃー 06/2/22(水) 10:02 発言[未読]
【35138】Re:計算式の入っているセルを上から順に検... taro 06/2/22(水) 10:32 お礼[未読]
【35134】Re:計算式の入っているセルを上から順に検... inoue 06/2/22(水) 10:02 発言[未読]

【35131】計算式の入っているセルを上から順に検索...
質問  taro  - 06/2/22(水) 9:49 -

引用なし
パスワード
   過去ログの確認をしきれず、もし過去に同じような質問があったらすみません。
例えば、
A列の中にアトランダムに計算式の入っているセルが存在するとします。
この状態で、上から(1行目から)順に計算式の入っているセルを検索し、計算式の入ったセルが見つかったら、その計算結果の値を同じ行のC列にコピー&ペーストします。
セルA1から検索を開始し、仮にセルA3に計算式が入っていたら、その計算結果の値をC3にコピー&ペーストするということです。
その後A列に戻り、セルA4以下で次に計算式の入っているセルを探し、同じことを繰り返す、という内容です。

どなたかご教授ください。よろしくお願いいたします。

【35133】Re:計算式の入っているセルを上から順に...
発言  ぱっせんじゃー  - 06/2/22(水) 10:02 -

引用なし
パスワード
   ジャンプ→セル選択→数式
をマクロの自動記録し少し改造しました。

Sub Macro1()
Dim c As Range
Dim r As Range
 Set r = Range("A1").SpecialCells(xlCellTypeFormulas, 23)
 For Each c In r
  c.Offset(, 2).Value = c.Value
 Next
End Sub

【35134】Re:計算式の入っているセルを上から順に...
発言  inoue E-MAILWEB  - 06/2/22(水) 10:02 -

引用なし
パスワード
   新しいマクロの記録で、
「編集」メニューの「ジャンプ」「セル選択」「数式」とやって
得られたコードからループ処理を考えてみてはいかがでしょう。

【35138】Re:計算式の入っているセルを上から順に...
お礼  taro  - 06/2/22(水) 10:32 -

引用なし
パスワード
   ぱっせんじゃーさん

早速の返信、ありがとうございます。
一発で解決しました。
助かりました。

inoueさんもありがとうございます。

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