Excel VBA質問箱 IV

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

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


36280 / 76732 ←次へ | 前へ→

【45635】コピー範囲についておしえて
質問  タッチ  - 07/1/8(月) 2:35 -

引用なし
パスワード
   よろしくお願いします。
以前作成いただいたコードなのですがちょっと状況がかわり
コピー元は"入力シートのコード1がA8:Z8"コード2がA9:Z9です。
コピー先は"請求書作成"のAN3:BM3[コード1〜80全て]
コピー範囲を変更する必要が生じたのですが[AM3:DM3→AN3:BM3へ変更]
下記こーどの変数iは何を意味するのでしょうか
しょうもない質問で申し訳ないのですが困っています。
教えてください。

Sub MainR()
  Dim Rtn As String
  Dim X As Long

  Rtn = InputBox("会社1から80のいずれかを入力してください")
  X = Val(Rtn)
  Call Code(X + 7)
End Sub

i の意味が不明です
Sub Code(i As Long)
  Dim rc As Long
  rc = MsgBox(Sheets("入力").Range("B" & i).Value & "の請求書作成します。 ", vbYesNo)
If rc = vbYes Then
  rc = MsgBox("内訳は、" & Sheets("入力").Range("J" & i).Value & "です。 ", vbYesNo)
If rc = vbYes Then
  Sheets("入力").Select
  Range("A" & i & ":BN" & i).Select ←※ココのコードが不明":BN"とは
                     何を意味するのですか?
 
  Selection.Copy
  Sheets("請求書作成").Select
  Range("AN3").Select
  ActiveSheet.Paste
  Sheets("入力").Select
  Application.CutCopyMode = False
  Range("A7").Select
  Sheets("請求書作成").Select
    Range("AM3:DA3").Select
       ~~~~~~~~~~
       "AN3:BM3までの範囲にする。
  With Selection.Interior
    .ColorIndex = 10
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
  End With
  Application.Goto Reference:="R1C1"
End If
End If
End Sub
1 hits

【45635】コピー範囲についておしえて タッチ 07/1/8(月) 2:35 質問
【45637】Re:コピー範囲についておしえて T 07/1/8(月) 8:55 質問
【45639】Re:コピー範囲についておしえて タッチ 07/1/8(月) 12:08 発言
【45643】Re:コピー範囲についておしえて りん 07/1/8(月) 14:22 発言
【45645】Re:コピー範囲についておしえて タッチ 07/1/8(月) 14:39 発言
【45647】Re:コピー範囲についておしえて T 07/1/8(月) 15:22 発言
【45648】Re:コピー範囲についておしえて タッチ 07/1/8(月) 15:37 お礼

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