銀さんの何かやってます。

とにかくやってみる。

VBA　ユーザーフォームをやってみた～♪

2011年07月17日 01時52分11秒 | Excel 関係

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回目にして何とか実行できるようになりましたが、原因が不明です
どうしてだろう・・・？　(*￣∧￣*;)ウーン


コメント (2)    この記事についてブログを書く
 
 
 
 
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする
« Excel条件付書式　個人の休み... | トップ | パソコン教室の室内を初公開！ »
最新の画像［もっと見る］

2 コメント

コメント日が  古い順  |   新しい順
Unknown (維野眞充)
2011-07-17 08:34:37
お疲れ様でした^^
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

ニコタで教えてもらったり　調べたもので次々とフォームを作っていますけど　私も躓きが多いです＾＾
銀嶺さんも頑張ってくださいね！
返信する
記号が・・・ (維野眞充)
2011-07-17 08:38:16
前のコメントで＜＞が抜けてるｗｗ

Do While Cells(abc, 1)＜＞ ""

となります。　
入力したのに　消えてる。。。。なので　全角にしてます^^;
すいませんｗ
返信する

コメントを投稿

「Excel 関係」カテゴリの最新記事

カレンダー

2024年12月
日 月 火 水 木 金 土
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31