|
▼タッチ さん:
F8でステップインされると分かると思いますが・・・
>コピー元は"入力シートのコード1がA8:Z8"コード2がA9:Z9です。
>コピー先は"請求書作成"のAN3:BM3[コード1〜80全て]
>コピー範囲を変更する必要が生じたのですが[AM3:DM3→AN3:BM3へ変更]
>下記こーどの変数iは何を意味するのでしょうか
iは変数です・・・1から80+7を指しています
>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"とは
> 何を意味するのですか?
A列のiは行を、BN列のiは行を指します・・・iはInputBoxで入力した数字+7を
意味しています。
> 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
|
|