| |
こんにちは。かみちゃん です。
>一応、自分でマクロを組んでみたのですがうまくテキストボックスに
>リンクしません。
ご提示のコードで、どの部分がうまくいかないのかを教えてください。
とりあえず、何がしたいのかがよく見えません。
> Private Sub TextBox1_Change()
テキストボックス変更時？
> Dim bit_0 As String
String型なのに
> bit_0 = 1
とは？
> Else
> bit_0 = 0
> If CheckBox2 = True Then
End If が抜けているような？
> TextBox1 = bit_1 & bit_0
CheckBox1が1ビット目という意味でよいのか？
ということで、以下のような感じでいいのでは？
Private Sub CommandButton1_Click()
If CheckBox1.Value Then
TextBox1.Value = "1"
Else
TextBox1.Value = "0"
End If
If CheckBox2.Value Then
TextBox1.Value = "1" & TextBox1.Value
Else
TextBox1.Value = "0" & TextBox1.Value
End If
End Sub
CheckBoxの数がもっとたくさんあるのならば、もう少しスマートにできます。
|
|
かみちゃん
- 04/12/10(金) 12:49 -
