| |
▼夜勤労働者 さん：
おはようございます。
> 取り込まれたデータをチェックするめ、以下の計算式を使って、一応正常に動いて
>います。
> 毎回チェック時に計算式の作成とシートの上から底まで結果チェック作業を省けたい
>と思いますが、いい方法はあるのでしょうか？ご指導ください。
ＶＢＡで一括で数式を設定する方法です。
>
>IF(MOD(C2,$B2)<>0,"×","○")
>
>A B C D E C結果 Ｄ結果 Ｅ結果
>あ 2 4 6 50 ○ ○ ○
>い 3 4 6 258 × ○ ○
>う 4 12 16 3 ○ ○ ×
C結果、Ｄ結果、Ｅ結果という見出しがそれぞれセルＦ１、Ｇ１、Ｈ１だとすると
標準モジュールに
'===========================================================
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を実行してみてください。
Ｆ列〜Ｈ列のデータが存在する行（Ａ列のデータで存在チェックをしています）に
数式が設定されます。
|
|
ichinose
- 06/11/5(日) 10:09 -
