Excel VBA質問箱 IV

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

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


21590 / 76732 ←次へ | 前へ→

【60535】Re:ボックス間の掛け算とその解の表示
質問  ヒロ  - 09/2/26(木) 11:35 -

引用なし
パスワード
   ▼neptune さん:

>改良ならば、どこまで出来て、どの部分がわからないか書かなければ、
>質問の体をなしてないです。

率直なご意見助かります。

1.textbox1→1000入力
2.combobox1→65%選択
3.textbox2→650入力

という入力・選択の流れのなかで
現在は3.の段階で電卓で計算しています。
簡単な計算ならばいいのですが
1.が細かい数字の場合があります。

できれば1.2.の入力・選択の結果が3.に反映されるもの、
1.2.を変更したら3.が変更されるものにしたいのです。

コードは以下の通りです。

'
'新規登録ボタンがクリックされた場合の処理
'
Private Sub CommandButton1_Click()

  '使用する変数の宣言
  'Dim 変数名 As データ型
  
  Dim Meekaamei As String   'メーカー名
  Dim Shiriizumei As String  'シリーズ名
  Dim Shohinmei As String   '商品名
  Dim Teika As String     '定価
  Dim Shubetu As String    '種別
  
  Dim Shiiresaki As String  '仕入
  Dim Kakeritu As String   '掛率
  Dim Genka As String     '原価
  Dim Baika As String     '売価
  
  Dim Yoteibi As String    '予定日
  Dim Hacchuusuuct As String '発注数CT
  Dim Hacchuusuubox As String '発注数BOX
  Dim Hacchuusuuko As String '発注数コ
  
  Dim Kensuu As Long     '登録されているデータの件数
  Dim Gyou As Long      'ワークシートの何行目に書き込むか
  
  Dim MaxGyou As Long     '
    
  'コントロールに入力された値を変数に代入
  '変数名 = オブジェクト名.プロパティ名
  
  Meekaamei = ComboBox1.Text
  Shiriizumei = ComboBox2.Text
  Shohinmei = TextBox1.Text
  Teika = TextBox2.Text
  Shubetu = ComboBox3.Text
  
  Shiiresaki = ComboBox4.Text
  Kakeritu = ComboBox5.Text
  Genka = TextBox3.Text
  Baika = TextBox4.Text
  
  Yoteibi = TextBox5.Text
  Hacchuusuuct = ComboBox6.Text
  Hacchuusuubox = ComboBox7.Text
  Hacchuusuuko = TextBox6.Text
          
    '商品名が入力されていない場合は登録しない

    If Shohinmei = "" Or Teika = "" Or Genka = "" Or Baika = "" Or _
    Yoteibi = "" Or Hacchuusuuko = "" Then
      MsgBox "商品名・定価・原価・売価・予定日・発注数は入力して下さい。"
      Exit Sub
    End If
  
    '登録件数からワークシートに書き込む行を計算する
  
    Kensuu = Worksheets("Sheet1").Cells(4, 18).Value  'セルR4の値=注意!
  
    Kensuu = Kensuu + 1   '新規に入力されたので件数を1つ増やす
  
    Gyou = Kensuu + 4    'ワークシトの4行目までは見出しなので
                'データを書き込む行は件数+4行目となる
              
  '変数の値をワークシートに書き込む
  
  Worksheets("Sheet1").Cells(Gyou, 1).Value = Meekaamei
  Worksheets("Sheet1").Cells(Gyou, 2).Value = Shiriizumei
  Worksheets("Sheet1").Cells(Gyou, 3).Value = Shohinmei
  Worksheets("Sheet1").Cells(Gyou, 4).Value = Teika
  Worksheets("Sheet1").Cells(Gyou, 5).Value = Shubetu
  
  Worksheets("Sheet1").Cells(Gyou, 6).Value = Shiiresaki
  Worksheets("Sheet1").Cells(Gyou, 7).Value = Kakeritu
  Worksheets("Sheet1").Cells(Gyou, 8).Value = Genka
  Worksheets("Sheet1").Cells(Gyou, 9).Value = Baika
  
  Worksheets("Sheet1").Cells(Gyou, 10).Value = Yoteibi
  Worksheets("Sheet1").Cells(Gyou, 11).Value = Hacchuusuuct
  Worksheets("Sheet1").Cells(Gyou, 12).Value = Hacchuusuubox
  Worksheets("Sheet1").Cells(Gyou, 13).Value = Hacchuusuuko
  
    '登録件数の値を更新(セルR4の値=注意!)
  
    Worksheets("Sheet1").Cells(4, 18).Value = Kensuu
    
    '登録件数から最終データの行番号を取得
  
    MaxGyou = Cells(4, 18).Value + 4  'セルR4の値+4
  
    '予定日の昇順で並べ替える操作を「新しいマクロの記録」で出力し
    '並べ替え対象のセル範囲Range()の内容などを変更したもの
  
    Range(Cells(5, 1), Cells(MaxGyou, 15)).Select  '並べ替えるセルの範囲を指定=注意!
    Selection.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin, DataOption1:=xlSortNormal
  
    '次の入力のためにテキストボックスを空にする
  
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
  
  
End Sub

'
'終了ボタンがクリックされた場合の処理
'
Private Sub CommandButton0_Click()

  End   'コマンドボタンをクリックしたら終了

End Sub

1 hits

【60501】ボックス間の掛け算とその解の表示 ヒロ 09/2/24(火) 20:32 質問
【60502】Re:ボックス間の掛け算とその解の表示 neptune 09/2/24(火) 22:18 発言
【60535】Re:ボックス間の掛け算とその解の表示 ヒロ 09/2/26(木) 11:35 質問
【60536】Re:ボックス間の掛け算とその解の表示 neptune 09/2/26(木) 11:59 回答
【60552】Re:ボックス間の掛け算とその解の表示 ヒロ 09/2/27(金) 18:49 お礼

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