VBAは超ド級の初心者です_|￣|●)))ガクッ
とりあえず書籍を見ながらユーザーフォームを作ってみました＾＾；
こんな感じでユーザーフォームを作って～ （￣～￣;）ウーン・・・
「入力」のコマンドボタンのところはEnabled=true って変更するのかな？
次にコマンドボタンにイベントプロシージャー？を入力して・・・
実行をクリックして～♪
5回目にしてやっと出来ました ＿ノフ○)))グタリ
Private Sub CommandButton1_Click()
With Range("A1").End(xlDown).Offset(1, 0)
.Value = TextBox1.Value
.Offset(0, 1).Value = TextBox2.Value
End With
End Sub
実行をクリックすると必ず2行目がデパックエラーとなってエラーコード”1004”が出てましたが5回目にして何とか実行できるようになりましたが、原因が不明です
どうしてだろう・・・？ (*￣∧￣*;)ウーン
最新の画像［もっと見る］
-
毎年恒例のタイヤ交換やっとだよ！
1年前
-
スタッドレスタイヤに交換。
2年前
-
Trustのマフラー交換
2年前
-
価格に円を入力してしまった時の計算対処法
4年前
-
価格に円を入力してしまった時の計算対処法
4年前
-
価格に円を入力してしまった時の計算対処法
4年前
-
価格に円を入力してしまった時の計算対処法
4年前
-
価格に円を入力してしまった時の計算対処法
4年前
-
価格に円を入力してしまった時の計算対処法
4年前
-
札幌平岡公園の梅林。
11年前
Do While Cells(abc, 1)＜＞ ""
となります。
入力したのに 消えてる。。。。なので 全角にしてます^^;
すいませんｗ
VBAは難しすぎですよね・・・
私も四苦八苦しながら 何とか形にしてますけど それでも ？？状態ですｗ
ユーザーフォームの入力は↓のような記述で一発実行OKでした。
変数を使って行を移動させ、 Do while～Loopで 入力行の次の空いている行へ入力させるようにしてみました。ちなみに変数開始位置は項目行を外すとやりやすいです。
私はこの後、保存まで実行するようにしています。ファイルによっては 閉じるまで一気に操作するようにしてますので 楽ですｗ
Private Sub CommandButton1_Click()
Dim abc As Integer
abc = 3
Do While Cells(abc, 1) <> ""
abc = abc + 1
Loop
Cells(abc, 1) = TextBox1.Text
Cells(abc, 2) = TextBox2.Text
End Sub
ニコタで教えてもらったり 調べたもので次々とフォームを作っていますけど 私も躓きが多いです＾＾
銀嶺さんも頑張ってくださいね！