Excel VBA質問箱 IV

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

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


52838 / 76732 ←次へ | 前へ→

【28722】Re:チェックボックスを含む行の追加
質問  toki  - 05/9/13(火) 16:19 -

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

こんにちは。ponpon様に教えていただいたものを元に作ってみました。
1.ユーザーフォームは入力を3つとしました。
・職務(コンボボックス)
・社員名(テキストボックス)
・社員番号(テキストボックス)
2.C列を社員番号としました。
3.チェックボックスはT列に配置しました。

結果、ほとんど私の理想どおりの形となりました。ありがとうございます!

しかし、私がいじったところがうまく動きません。
2重登録の防止のところなのですが、C列の社員番号にも適用しようと思い書き加えました。
しかし、ひっかかってくれません。
下のソースのどこがおかしいのでしょうか?

Private Sub CommandButton1_Click()
  
  Dim myR As Range
  Dim chcB As Object
  Dim myLeft As Single, myTop As Single
  Dim myWidth As Single, myHeight As Single
  Dim A As Variant
  Dim B As Variant
 
  If Me.社員登録ComboBox1 = "" Then
   MsgBox "職務を入力してください。"
  ElseIf Me.社員名TextBox1 = "" Then
   MsgBox "社員名を入力してください。"
  ElseIf Me.社員番号TextBox1 = "" Then
   MsgBox "社員番号を入力してください。"
  
  Else
  
  With Worksheets("管理者入力画面")
   A = Application.Match(Me.社員名TextBox1.Text, .Range("B:B"), 0)
   B = Application.Match(Me.社員番号TextBox1.Text, .Range("C:C"), 0)
  
   If Not IsError(A) Then
    MsgBox "この人は登録済みです。"
    Exit Sub
   ElseIf Not IsError(B) Then
    MsgBox "この社員番号は登録済みです。"
    Exit Sub
   End If
  
     With .Range("A65536").End(xlUp)
      .Offset(1, 0).Value = Me.社員登録ComboBox1.Text
      .Offset(1, 1).Value = Me.社員名TextBox1.Text
      .Offset(1, 2).Value = Me.社員番号TextBox1.Text
      Set myR = .Offset(1, 19)
       myTop = myR.Top
       myLeft = myR.Left
       myWidth = myR.Width
       myHeight = myR.Height
     End With
     Set chcB = .CheckBoxes.Add(myLeft, myTop, myWidth, myHeight)
       chcB.Characters.Text = "チェック"
   End With
  End If
  
End Sub

あともうひとつご質問があります。こうして作られたものを社員リストから社員を行ごと削除したい場合があります。
このとき、削除用のユーザーフォームを作り、社員番号を入れると、検索して名前が表示され、コマンドボタンで行ごと削除する、という方法はとれますでしょうか?
チェックボックスも一緒に消したいのですが。

0 hits

【28685】チェックボックスを含む行の追加 toki 05/9/12(月) 21:27 質問
【28686】Re:チェックボックスを含む行の追加 ichinose 05/9/12(月) 21:54 発言
【28687】Re:チェックボックスを含む行の追加 toki 05/9/12(月) 22:43 質問
【28689】Re:チェックボックスを含む行の追加 ponpon 05/9/12(月) 23:36 発言
【28699】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 8:45 お礼
【28722】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 16:19 質問
【28736】Re:チェックボックスを含む行の追加 ponpon 05/9/13(火) 20:24 発言
【28746】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 22:07 お礼
【28756】Re:チェックボックスを含む行の追加 ponpon 05/9/13(火) 23:32 発言
【28757】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 23:52 質問
【28758】Re:チェックボックスを含む行の追加 ponpon 05/9/14(水) 0:44 発言
【28763】Re:チェックボックスを含む行の追加 toki 05/9/14(水) 9:18 お礼
【28937】Re:チェックボックスを含む行の追加 toki 05/9/18(日) 22:59 質問
【28938】Re:チェックボックスを含む行の追加 ponpon 05/9/18(日) 23:48 発言
【28939】Re:チェックボックスを含む行の追加 Hirofumi 05/9/19(月) 0:35 発言
【28945】Re:チェックボックスを含む行の追加 toki 05/9/19(月) 10:04 お礼
【28941】Re:チェックボックスを含む行の追加 ponpon 05/9/19(月) 1:02 発言
【28942】Re:チェックボックスを含む行の追加 ponpon 05/9/19(月) 1:08 発言
【28946】Re:チェックボックスを含む行の追加 toki 05/9/19(月) 10:15 お礼
【28696】Re:チェックボックスを含む行の追加 ichinose 05/9/13(火) 7:23 発言
【28700】Re:チェックボックスを含む行の追加 toki 05/9/13(火) 8:46 お礼

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