Excel VBA質問箱 IV

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

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


27379 / 76732 ←次へ | 前へ→

【54674】転記したワークシートのデーターをユーザーフォームで閲覧する
質問  Regina  - 08/3/25(火) 22:25 -

引用なし
パスワード
   最近、ここでお世話になっています。VBA初心者です。
ユーザーフォームで入力したデーターをワークシートに転記しています。
そのデーターを閲覧するのに、ユーザーフォームで表示できるようにしたいと思い、本をまねてコードを入力しました。

新規登録はUserForm3を表示し、データー閲覧はUserForm4を表示するように、ワークシートのボタンに設定しています。

ワークシート名:データーベース
   入力データー名:患者ID
           氏名
           性別
           生年月日
           年齢
           入院・外来
           発症日・起算日
           主治医・処方医
           診断名
           種別
           算定期限
           転機
   新規登録ボタン:クリックするとデーター入力用のユーザーフォームを表示
          (ユーザーフォーム名:UserForm3)
   データー閲覧ボタン:データー閲覧用のユーザーフォームを表示
          (ユーザーフォーム名:UserForm4)

UserForm4:
 患者ID→TextBox1 氏名→TextBOx2 
 性別→Frame8内に「男」はOptionButton1、「女」はOptionButton2
 生年月日→TextBox3 年齢→TextBox4 
 入院・外来→Frame2内に「入院」はOptionButton3、「外来」はOptionButton4
 入院日→TextBox5 診断名→TextBox6 主治医・処方医→TextBox9
 種別→Frame9内に CheckBox1〜CheckBox8まで
 発症日・起算日→TextBox7 算定期限日→TextBox8
 転機→Frame10内にCheckBox9〜CheckBox12
 <前 →CommandButton9  次> →CommandButton10
 閉じる →CommandButton11

以下の、コードは行の取得が上手くいくか分からなかったので、TextBox1(患者ID)とTextBox2(氏名)とOptionButton1・2(男性・女性の選択)だけ、始めに設定しようと思って試しにしてみました。[Database]はワークシート(名:データーベース)のデーター入力部分5行分と名前(患者IDや氏名・性別と書いてある部分)を選択した範囲の名前です。下記を入力後、実行をクリックしましたが、特にコード中には問題はなかったです(赤くなっていたり、黄色になっていませんでした)。しかし、データー閲覧のユーザーフォームには、患者IDや氏名や性別の表示が出来ていませんでした。COUNT関数とCallステートメントの入力がおかしいでしょうか?ご教授お願い致します。
-------------------------------------------------------------------

Dim 表示行 As Long
Dim 最終行 As Long
Option Explicit
Private Sub UserForm4_Initialize()
 表示行 = 2  →先頭レコードが2行目からなので、表示行には2を代入
 最終行 = WorksheetFunction.CountA([Database].Resize(, 1))
        →COUNT関数を使って、左端列の行数を数えて代入
 Call データー表示
End Sub
Private Sub CommandButton9_Click()
 If 最終行 <= 2 Then
   Beep
 Else
   表示行 = 表示行 - 1
   Call データー表示
 End If
 
End Sub
Private Sub CommandButton10_Click()
 If 最終行 >= 最終行 Then
   Beep
 Else
   表示行 = 表示行 + 1
   Call データー表示
 End If
 
End Sub
Private Sub CommandButton11_Click()
 Unload UserForm4
End Sub
Private Sub データー表示()
 TextBox1 = [Database].Cells(表示行, 1)
 TextBox2 = [Database].Cells(表示行, 2)
 
 If [Datebase].Cells(表示行, 3) = "男性" Then
  OptionButton1.Value = True
 Else
  OptionButton2.Value = True
 End If
 
End Sub
---------------------------------------------------------------------

1 hits

【54674】転記したワークシートのデーターをユーザーフォームで閲覧する Regina 08/3/25(火) 22:25 質問
【54693】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/26(水) 13:20 質問
【54704】Re:転記したワークシートのデーターをユー... Regina 08/3/26(水) 19:50 発言
【54705】Re:転記したワークシートのデーターをユー... Regina 08/3/26(水) 20:00 発言
【54711】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/27(木) 12:26 質問
【54733】Re:転記したワークシートのデーターをユー... Regina 08/3/27(木) 22:57 発言
【54735】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/28(金) 2:13 質問
【54736】Re:転記したワークシートのデーターをユー... Regina 08/3/28(金) 7:14 発言
【54737】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/28(金) 9:09 回答
【54774】Re:転記したワークシートのデーターをユー... Regina 08/3/29(土) 11:04 発言
【54776】Re:転記したワークシートのデーターをユー... ツル 08/3/29(土) 13:01 回答
【54785】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 0:26 発言
【54786】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/30(日) 0:56 回答
【54794】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 13:24 発言
【54795】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/30(日) 13:37 回答
【54803】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 22:27 発言
【54817】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/31(月) 15:08 発言
【54823】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 18:13 回答
【54825】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 20:33 回答
【54826】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 21:30 回答
【54827】Re:転記したワークシートのデーターをユー... Regina 08/3/31(月) 22:30 発言
【54830】Re:転記したワークシートのデーターをユー... VBWASURETA 08/4/1(火) 9:55 発言
【54843】Re:転記したワークシートのデーターをユー... Regina 08/4/1(火) 16:08 発言
【54844】Re:転記したワークシートのデーターをユー... VBWASURETA 08/4/1(火) 16:51 発言
【54847】Re:転記したワークシートのデーターをユー... わさび 08/4/1(火) 18:29 発言
【54848】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/1(火) 19:15 回答
【54849】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/1(火) 19:34 回答
【54850】Re:転記したワークシートのデーターをユー... Regina 08/4/1(火) 23:12 発言
【54873】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/2(水) 19:17 回答
【54877】Re:転記したワークシートのデーターをユー... Regina 08/4/3(木) 0:14 お礼

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