Excel VBA質問箱 IV

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

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


52870 / 76732 ←次へ | 前へ→

【28689】Re:チェックボックスを含む行の追加
発言  ponpon  - 05/9/12(月) 23:36 -

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

一応作ってみました。

ユーザーフォームに
 TextBox1・・・役職入力用
 TextBox2・・・氏名入力用
 CommandButton1・・・マクロ実行用
を用意してください。

シートは、シート名「点数集計表」

一行目にA列に「役職」
    B列に「氏名」
    C列に「点数」
    D列に「チェック」が入力済みと仮定します。

いつもお世話になっているichinoseさんから
>出来ないことはありません・・・が、
>オブジェクトを増やしていくということは、非常に重くなってしまいます。
>ユーザーフォームのチェックボックスから
>TrueかFalseというデータのみを追加していくという方法で

という忠告がでていますが、
D列にチェックボックス(フォームの)が張り付くようにしています。
都合が悪ければ、ユーザーフォームにチェックボックスを設け、その結果のみを
転記するように変更してください。

同姓同名などの問題点は残していますが、入力なしと氏名の二重登録のチェックは
考えてみました。

参考にということで試してみてください。

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
  
  If Me.TextBox1.Text = "" Or Me.TextBox2.Text = "" Then
   MsgBox "役職、氏名を入力してください。"
  Else
  With Worksheets("点数集計表")
   A = Application.Match(Me.TextBox2.Text, .Range("B:B"), 0)
   If Not IsError(A) Then
    MsgBox "この人は登録済みです。"
    Exit Sub
   End If
     With .Range("A65536").End(xlUp)
      .Offset(1, 0).Value = Me.TextBox1.Text
      .Offset(1, 1).Value = Me.TextBox2.Text
      Set myR = .Offset(1, 3)
       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 お礼

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