Excel VBA質問箱 IV

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

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


4650 / 13644 ツリー ←次へ | 前へ→

【55389】ユーザーフォームを使用して masa 08/5/2(金) 10:31 質問[未読]
【55392】Re:ユーザーフォームを使用して ひげくま 08/5/2(金) 11:21 発言[未読]
【55393】Re:ユーザーフォームを使用して Yuki 08/5/2(金) 11:41 発言[未読]
【55412】Re:ユーザーフォームを使用して masa 08/5/2(金) 17:07 回答[未読]
【55414】Re:ユーザーフォームを使用して ひげくま 08/5/2(金) 18:31 発言[未読]
【55417】Re:ユーザーフォームを使用して Yuki 08/5/2(金) 22:00 発言[未読]
【55415】Re:ユーザーフォームを使用して Hirofumi 08/5/2(金) 18:48 発言[未読]
【55416】Re:ユーザーフォームを使用して masa 08/5/2(金) 19:11 お礼[未読]

【55389】ユーザーフォームを使用して
質問  masa  - 08/5/2(金) 10:31 -

引用なし
パスワード
   お世話になります。

ユーザーフォームを作成して入力・修正・削除等を行おうとしていたのですが、
作動しません。
コードにおかしな所がありますか?
宜しくお願い致します。

A B    C     D  E       F   G  H  I
No. 氏名     生年月日  年齢     入院年月日   フリガナ    表示 4
1  大浦     1950/10/17  57     2007/4/22   オオウラ    最終 23
2  佐藤     1952/12/14  55     2007/12/16   サトウ
3  加藤     1946/12/07  61     2008/2/29   カトウ


Private Sub CommandButton1_Click()
 If Cells(1, 9).Value > 2 Then
   Cells(1, 9).Value = Cells(1, 9).Value - 1
 End If
 データー表示
End Sub

Private Sub CommandButton2_Click()
 If Cells(1, 9).Value > Cells(2, 9) Then
   Cells(1, 9).Value = Cells(1, 9).Value + 1
 End If
 データー表示
End Sub

Private Sub CommandButton3_Click()
 入力結果 = MsgBox("登録しますか", vbYesNo)
 If 入力結果 = 7 Then
 If ToggleButton1.Value = True Then
   表示 = Cells(2, 9).Value + 1
 Else
   表示 = Cells(2, 9).Value
 End If
   Cells(表示, 1).Value = TextBox1.Value
   Cells(表示, 2).Value = TextBox2.Value
   Cells(表示, 3).Value = TextBox3.Value
   Cells(表示, 4).Value = TextBox4.Value
   Cells(表示, 5).Value = TextBox5.Value
   Cells(表示, 6).Value = TextBox6.Value
 If ToggleButton1.Value = True Then
   データークリア
   TextBox1.Value = Cells(表示, 1).Value + 1
 Else
   データー表示
 End If
 End If
 End Sub
 
Private Sub CommandButton4_Click()

  入力結果 = MsgBox("表示されているデータを削除しますか", vbYesNo)
  
  If 入力結果 = 6 Then
  
    表示行 = Cells(1, 9).Value
    Range(Cells(表示, 1), Cells(表示, 6)).Select
    Selection.Delete shift:=xlUp

    
    If Cells(2, 9).Value = 1 Then
      ToggleButton1.Value = True
    Else
      If 表示 > 2 Then
        Cells(1, 9).Value = 表示 - 1
      End If
      データ表示
    End If
    End If
  End Sub
Private Sub ToggleButton1_Change()

  If ToggleButton1.Value = True Then
  
    データクリア
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    CommandButton4.Enabled = False
    CommandButton3.Caption = "データ登録"
    
    最終 = Cells(2, 9).Value
    If 最終 = 1 Then
      TextBox1.Value = 1
    Else
      TextBox1.Value = Cells(最終, 1).Value + 1
    End If
    
  Else
  
    CommandButton1.Enabled = True
    CommandButton2.Enabled = True
    CommandButton4.Enabled = True
    CommandButton3.Caption = "データ修正"
    
    Cells(1, 9).Value = Cells(2, 9).Value
    データ表示
  
  End If

End Sub


Private Sub 表示()
With Worksheets("Database")
  表示行 = Cells(1, 9).Value

  TextBox1.Value = Cells(表示, 1).Value
  TextBox2.Value = Cells(表示, 2).Value
  TextBox3.Value = Cells(表示, 3).Value
  TextBox4.Value = Cells(表示, 4).Value
  TextBox5.Value = Cells(表示, 5).Value
  TextBox6.Value = Cells(表示, 6).Value
End With
End Sub

Sub データクリア()

  TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox3.Value = ""
  TextBox4.Value = ""
  TextBox5.Value = ""
  TextBox6.Value = ""

End Sub

【55392】Re:ユーザーフォームを使用して
発言  ひげくま  - 08/5/2(金) 11:21 -

引用なし
パスワード
   こんにちは。

「作動しません」だけでは質問が漠然としすぎです。

コードの内容はよく見ていませんが、これほどのコードを書けるくらいでしたら、ステップ実行でデバッグもできますよね?

【55393】Re:ユーザーフォームを使用して
発言  Yuki  - 08/5/2(金) 11:41 -

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

よくは見ていませんがコードの通りでしたら動きませんね。
モジュールの先頭に
Option Explicit
をいれて変数の宣言をチャントしてから実行されては

【55412】Re:ユーザーフォームを使用して
回答  masa  - 08/5/2(金) 17:07 -

引用なし
パスワード
   ひげくまさん、Yuki さん
ありがとうございます。

返事が遅くなり申し訳ありません。

勉強途中で、サンプルを参考にしながら記入したものなので、
何故、作動しないのか意味が理解出来ていません。

「作動しない」ということは、どのボタンを押しても
SubまたはFunctionが定義されていませんと表示されます。

サンプルで試した時は作動したのにどうしてなるのでしょうか?

【55414】Re:ユーザーフォームを使用して
発言  ひげくま E-MAIL  - 08/5/2(金) 18:31 -

引用なし
パスワード
   >「作動しない」ということは、どのボタンを押しても
>SubまたはFunctionが定義されていませんと表示されます。

ボタンにマクロは登録していますか?

【55415】Re:ユーザーフォームを使用して
発言  Hirofumi  - 08/5/2(金) 18:48 -

引用なし
パスワード
   【54786】Re:転記したワークシートのデーターをユーザーフォームで閲覧する 
 
  Hirofumi - 08/3/30(日) 0:56 - 

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=54786;id=excel

やりとりも含めて、こんなのも参考になるかも知れません

【55416】Re:ユーザーフォームを使用して
お礼  masa  - 08/5/2(金) 19:11 -

引用なし
パスワード
   Hirofumi さん ひげくまさん
ありがとうございます。

参考にしてみます。

【55417】Re:ユーザーフォームを使用して
発言  Yuki  - 08/5/2(金) 22:00 -

引用なし
パスワード
   ▼masa さん:
>「作動しない」ということは、どのボタンを押しても
>SubまたはFunctionが定義されていませんと表示されます。

データ表示というSubまたはFunctionが定義されていません
というエラーになりますよ。

だから
>モジュールの先頭に
>Option Explicit
>をいれて変数の宣言をチャントしてから実行されては
を助言させて頂いたのですよ。

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