|
▼taka さん:
>▼taka さん:
>>▼Statis さん:
>>>こんにちは。
>>>
>>>お聞きします。
>>>1:オプシンボタンの優先順位はどうなりますか?
>>>
>>>>Me.OLEObjects("OptionButton" & .Range("BG31").Value).Object.Value = True
>>>2:上記で「True」になればそれ以降のコードは処理する必要は無いですよね?
>>>
>>>3:各セルの値によってはループ処理できるかも??
>>>
>>>
>>>1〜3の質問にお答えください。
>>
>>優先順位はありません。
>>例えばオプションボタン3つで1グループ2つで1グループとなっていて、シート上のフォームのオプションボタンに反映させています。下記コードの様に、それを逆に呼び出す作業です。
>>
>>For i = 1 To 37
>> Select Case i
>> Case 1 To 5: Cou = 0: Co = 31 '介護度
>> Case 6 To 7: Cou = 5: Co = 32 '他科受診
>> Case 8 To 9: Cou = 7: Co = 33 '四肢障害
>> Case 10 To 11: Cou = 9: Co = 34 '視力
>> Case 12 To 13: Cou = 11: Co = 35 '眼鏡
>> Case 14 To 15: Cou = 13: Co = 36 '聴力
>> Case 16 To 17: Cou = 15: Co = 37 '補聴器
>> Case 18 To 19: Cou = 17: Co = 38 '義歯
>> Case 20 To 22: Cou = 19: Co = 39 '意思疎通
>> Case 23 To 24: Cou = 22: Co = 40 '言語障害
>> Case 25 To 27: Cou = 24: Co = 41 '移動
>> Case 28 To 30: Cou = 27: Co = 42 '更衣
>> Case 31 To 33: Cou = 30: Co = 43 '食事
>> Case 34 To 35: Cou = 33: Co = 44 '胃ろう
>> Case 36 To 37: Cou = 35: Co = 45 'ムセ
>> Case 38 To 40: Cou = 37: Co = 46 '排泄
>> Case 41 To 42: Cou = 40: Co = 47 '睡眠
>> Case 43 To 44: Cou = 42: Co = 48 '眠剤
>> Case 45 To 46: Cou = 44: Co = 49 'じょくそう
>> Case 36 To 37: Cou = 35: Co = 50 'エアマット
>> Case 49 To 50: Cou = 48: Co = 51 'アレルギー
>> Case 51 To 52: Cou = 50: Co = 52 '問題行動
>> End Select
>> If Me.OLEObjects("OptionButton" & i).Object = True Then
>> Worksheets(MyS).Cells(Co, 59).Value = i - Cou
>> End If
>>Next
わかりました。ボタンが52個あるのにFor i = 1 To 37となっていました。
大変すみませんでした。
|
|