| |
▼タッチ さん：
F8でステップインされると分かると思いますが･･･
>コピー元は"入力シートのコード1がA8:Z8"コード2がA9:Z9です。
>コピー先は"請求書作成"のAN3:BM3［コード1〜80全て］
>コピー範囲を変更する必要が生じたのですが［AM3:DM3→AN3:BM3へ変更］
>下記こーどの変数iは何を意味するのでしょうか
iは変数です･･･１から80＋７を指しています
>Sub MainR()
> Dim Rtn As String
> Dim X As Long
>
> Rtn = InputBox("会社１から８０のいずれかを入力してください")
> 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"とは
> 何を意味するのですか？
Ａ列の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
|
|
T
- 07/1/8(月) 8:55 -
