|
Jaka さん
こんにちは。
超初心者である私の質問の相談に乗っていただいて
本当にありがとう御座います。
お恥ずかしいながら、実はVBは余りよくわからないまま
コードを見よう見まねで書いています。
以下お言葉に甘えてコードを載せさせていただきます。
何か分かりましたら是非ともご教授いただけると嬉しいです。
エクセルVer 2002
実際の作成コード(’は説明)
’清算書作成
Private Sub CommandButton1_Click()
Dim varRag As Variant
Dim myArray As Integer
'j4(月), l4(日), cost(金額), p6(支社名),content(内容)
varRag = Array(Range("J4"), Range("L4"), cost, Range("P6"), content)
If cost <> Empty Then
If Range("A5") = Empty Then
'Range("A5").Select
'Range("A5") = 1
Range("B5").Select
For myArray = 0 To 4
With Selection
.Offset(, myArray) = varRag(myArray)
End With
Next myArray
Else
'A5のセルNoに何も入力されていない場合(初めての入力の場合)
’A5から始まるセル(実際の精算書シート)にArray入力
’その他は最後の行からデータを入力
Range("B65536").End(xlUp).Offset(1).Select
For myArray = 0 To 4
With Selection
.Offset(, myArray) = varRag(myArray)
End With
Next myArray
End If
'テキストボックスをすべて初期化します。
cost = ""
content = ""
Else
'テキストボックスに名前を入力しないで登録を押した時に出すエラーメッセージです。
MsgBox "入力して下さい"
End If
End Sub
Private Sub CommandButton3_Click()
Range("B5:F21").ClearContents
Range("B5").Select
End Sub
'現在はココまでです。。。
'しかしながら実は、以下
'テキストボックスの値・数値がテキスト認識されて
'計算が出来ないのと同じように困っている箇所があります。
'もし可能であれば一緒に見ていただけると幸いです。
’他の難点)コマンド2をクリックすると
'現在アクティブなセルの行が一行削除される
'Private Sub CommandButton2_Click()
'ActiveCell.FormulaR1C1 = "ClearContents(R[-1]C:R[-1]C5)"
'End Sub
何卒よろしく御願いします(;O;)
|
|