Excel VBA質問箱 IV

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

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


13758 / 76738 ←次へ | 前へ→

【68483】Re:inputboxで入力した数値が正しく反映されない
発言  kanabun  - 11/3/9(水) 23:37 -

引用なし
パスワード
   ▼HIROBON さん:
それから、ご質問の件から外れますが、

>Sub 3.Aレート記入()

こういう↑プロシージャ名は ありえないですね。

あと、全体をFor〜Nextで以下の感じにまとめることもできます。

Sub try_レート記入()
 Dim i As Long
 Dim col As Long
 Dim ans As Variant '実数値を受けるのだからDouble型でよいが、 _
           ユーザーが[Cancel]ボタンを押して入力スキップ _
           できるように Variant型にしている。
 
 col = 9
 For i = 1 To 12
   ans = Application.InputBox( _
      i & "月レートを入力してください", Type:=1)
   If VarType(ans) = vbDouble Then
     Worksheets("RegionPrice貼り付けシート").Cells(1, col) = ans
   End If
   col = col + 2
 Next
End Sub
0 hits

【68464】inputboxで入力した数値が正しく反映されない HIROBON 11/3/9(水) 12:01 質問
【68466】Re:inputboxで入力した数値が正しく反映さ... kanabun 11/3/9(水) 12:11 回答
【68469】Re:inputboxで入力した数値が正しく反映さ... kanabun 11/3/9(水) 13:11 発言
【68483】Re:inputboxで入力した数値が正しく反映さ... kanabun 11/3/9(水) 23:37 発言

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