|
▼heru さん:
>UO3 さん、かみちゃん さんありがとうございます。ですが分かりません。。
>使用しているコードを記述しますのでお願い致します。
>
規則性をご自分でn = 3 * m + 1と把握してらっしゃるんですから
これを小生がご提示したものにあてはめられればよろしいとは思いますが。
課題には関係ないことですがシート上のボタンはコントロールツールボックス
ではなくフォームのコマンドボタンなんですね。
ところで、プロシジャ名を1日とか2日とかしておられますが、エラーに
なりませんか?いずれにしても以下のようにされればよろしいかと。
(プロシジャ名はそのままにしておきますね。)
Sub 1日()
共通処理 1
End Sub
Sub 2日()
共通処理 2
End Sub
・
・
・
Privte Sub 共通処理(id)
Dim n as integer
n = 3 * id + 1
Application.ScreenUpdating = False
Range("B1:B10").Select
Selection.Copy
Cells(5, n).Select '<==ここをかえてあります。
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(2, n).Select '<==ここをかえてあります。
End Sub
|
|