OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

マクロのプロシージャーの修正

  • すぐに回答を!
  • 質問No.237985
  • 閲覧数51
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

シートの加工場設定マスタの列が最初は、B列の4行目からD列の30行まで
あったのですが、B列が不要になったのでB列を削除しました。
下記のようなマクロを記述していますが何処を修正すればよいか
教えてください。

Private bmas(20,3)
Sub Kmas_call()
Dim i As Integer, j As Integer, k As Integer
Windows("加工品.xls").Activate
Sheets("加工場設定マスタ").Select
For i = 1 To 20
For j = 1 To 3
Bmas(i, j) = Cells(i + 4, j + 1)
Next j
Next i

End Sub
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

B列を削除して必要なデータ列はB、Cの2列になり、
配列Bmas()に代入される値の意味あいは元のままだとすると

For j = 1 To 2
 Bmas(i, j+1) = Cells(i + 4, j + 1)
Next j

ということでしょうか。
お礼コメント
noname#72697

わかりました。ありがとうございました。
投稿日時 - 2002-03-20 08:42:55
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ