Excel VBA質問箱 IV

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

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


56326 / 76732 ←次へ | 前へ→

【25162】Re:すみませんわかりませんでした(;O;)
質問  えん  - 05/5/23(月) 11:05 -

引用なし
パスワード
   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;)
0 hits

【25036】テキストボックスを利用した数字入力 えん 05/5/18(水) 17:04 質問
【25039】Re:テキストボックスを利用した数字入力 Jaka 05/5/18(水) 17:21 発言
【25104】Re:すみませんわかりませんでした(;O;) えん 05/5/20(金) 11:29 質問
【25110】Re:すみませんわかりませんでした(;O;) Jaka 05/5/20(金) 12:58 回答
【25130】Re:すみませんわかりませんでした(;O;) えん 05/5/20(金) 16:43 質問
【25131】Re:すみませんわかりませんでした(;O;) Jaka 05/5/20(金) 17:13 発言
【25162】Re:すみませんわかりませんでした(;O;) えん 05/5/23(月) 11:05 質問
【25165】もしかして・・・なんですが つん 05/5/23(月) 11:38 発言
【25172】Re:もしかして・・・なんですが えん 05/5/23(月) 14:44 発言
【25175】Re:もしかして・・・なんですが つん 05/5/23(月) 16:22 発言
【25177】Re:もしかして・・・なんですが つん 05/5/23(月) 17:24 回答
【25133】Re:すみませんわかりませんでした(;O;) ponpon 05/5/20(金) 20:49 発言
【25160】Re:すみませんわかりませんでした(;O;) えん 05/5/23(月) 10:49 発言
【25180】Re:すみませんわかりませんでした(;O;) ponpon 05/5/23(月) 20:30 発言
【25181】Re:すみませんわかりませんでした(;O;) ponpon 05/5/23(月) 21:10 発言
【25202】ponponさん みなさまっ ついに出来ました... えん 05/5/24(火) 10:29 お礼

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