Excel VBA質問箱 IV

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

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


37770 / 76738 ←次へ | 前へ→

【44130】Re:チェックレポートの作成について
発言  ichinose  - 06/11/5(日) 10:09 -

引用なし
パスワード
   ▼夜勤労働者 さん:
おはようございます。

> 取り込まれたデータをチェックするめ、以下の計算式を使って、一応正常に動いて
>います。 
> 毎回チェック時に計算式の作成とシートの上から底まで結果チェック作業を省けたい
>と思いますが、いい方法はあるのでしょうか?ご指導ください。

VBAで一括で数式を設定する方法です。
>
>IF(MOD(C2,$B2)<>0,"×","○")
>
>A  B    C    D    E    C結果   D結果  E結果
>あ  2    4    6   50     ○    ○    ○
>い  3    4    6    258    ×    ○    ○
>う  4    12   16    3     ○    ○    ×

C結果、D結果、E結果という見出しがそれぞれセルF1、G1、H1だとすると

標準モジュールに

'===========================================================
Sub test()
  Dim rng As Range
  Set rng = Range("a2", Cells(Rows.Count, "a").End(xlUp))
  If rng.Row > 1 Then
    With rng.Offset(0, 5).Resize(, 3)
      .Formula = "=if(mod(rc[-3],rc2)<>0,""×"",""○"")"
      End With
    End If
End Sub

として、当該シートをアクティブにした状態で
上記のtestを実行してみてください。

F列〜H列のデータが存在する行(A列のデータで存在チェックをしています)に
数式が設定されます。
0 hits

【44128】チェックレポートの作成について 夜勤労働者 06/11/5(日) 9:56 質問
【44130】Re:チェックレポートの作成について ichinose 06/11/5(日) 10:09 発言
【44134】Re:チェックレポートの作成について 夜勤労働者 06/11/5(日) 13:02 質問
【44136】Re:チェックレポートの作成について Hirofumi 06/11/5(日) 18:03 回答
【44137】Re:チェックレポートの作成について ichinose 06/11/5(日) 20:29 発言
【44150】Re:チェックレポートの作成について 夜勤労働者 06/11/6(月) 14:06 質問
【44161】Re:チェックレポートの作成について ichinose 06/11/6(月) 21:31 発言

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