07/12/12 13:18:44
Sub yoyoyo()
Range("A" & 1 & ":A" & 2).Select: hoge = Selection.Value
MsgBox hoge
End Sub
型が違うって出てしまいます。
結合されたセルの値を取り出すには、
特別な作業が必要なんですかね。
982:デフォルトの名無しさん
07/12/12 13:43:20
>>981
VBAの本買ってこい
983:デフォルトの名無しさん
07/12/12 13:48:02
>>981
いつまでその調子で質問し続けるつもりだ？
984:973
07/12/12 13:50:13
すんません
985:デフォルトの名無しさん
07/12/12 13:53:00
>>981
一旦選択状態にする意味が分かんない。それすら分かってないレベルなら>>982
まとめて取得したいって意味なら、２次元配列で受け取る方法を考える。
つか、クイックウォッチを見ながらやってみ？
986:デフォルトの名無しさん
07/12/12 13:53:44
>>984
もし本を読んだ上で質問していると思うけど、複数冊参考になる本は用意しておくべきだよ。
その本ごとに強調する部分は違うからね。
とりあえず本屋へＧｏ！
987:デフォルトの名無しさん
07/12/12 13:55:16
＞もし本を読んだ上で質問していると思うけど
日本語でOK
988:973
07/12/12 15:55:32
ありがとうございます
色々やってたら出来ましたぁ
989:デフォルトの名無しさん
07/12/12 16:25:37
>>981
＞ Sub yoyoyo()
hoge AS Range
Set hoge = Range("A1:A2").Value
＞ MsgBox hoge
＞ End Sub
990:デフォルトの名無しさん
07/12/12 16:30:17
>>989
＞ >>981
修正。
Sub yoyoyo()
Dim hoge AS variant
Redim hoge(1,2)→行と列は忘れた。
Set hoge = Range("A1:A2").Value
MsgBox hoge
End Sub
991:デフォルトの名無しさん
07/12/12 16:34:05
>>979
＞ ExcelのChartではできません。あきらめましょう。
どおりで一ヵ月ネットで探してもでてこないわけですね・・
ありがとうございました
992:デフォルトの名無しさん
07/12/12 16:44:29
あきらめてシートに転記してグラフ化するがよろし
993:デフォルトの名無しさん
07/12/12 16:46:36
うわ、次ｽﾚの季節。
はよせんと落ちてしまう～、誰かﾖﾛ
994:981
07/12/12 16:56:31
>>990
助かります
995:デフォルトの名無しさん
07/12/12 17:08:28
>>981
hogeは２次元配列になっている
Sub yoyoyo()
Range("A" & 1 & ":A" & 2).Select: hoge = Selection.Value
MsgBox hoge (1,1) & vbLf & hoge(2,1)
End Sub
としないと動かない。
だがちょっと待って欲しい。変数の宣言をした方が良いんではないだろうか。
Sub yoyoyo()
Dim hoge As Variant
hoge = Range("A1:A2").Value
MsgBox hoge (1,1) & vbLf & hoge(2,1)
End Sub
とすればSelectしなくても良いのではないかという声が聞こえなくもない。
996:デフォルトの名無しさん
07/12/12 17:24:03
A1とA2は結合されてるのか。
だったら
Sub yoyoyo()
Dim hoge As Variant
hoge = Range("A1").Value
MsgBox hoge (1,1)
End Sub
997:デフォルトの名無しさん
07/12/12 17:26:18
ひとりごとはチラ裏な
998:デフォルトの名無しさん
07/12/12 17:29:35
Excel VBA質問スレ Part5
ｽﾚﾘﾝｸ(tech板)
999:デフォルトの名無しさん
07/12/12 17:32:23
すまん間違いな
Sub yoyoyo()
Dim hoge As Variant
hoge = Range("A1").Value
MsgBox hoge
End Sub
MsgBox Range("A1").Value
の１行でもいいぞ。
1000:1000get
07/12/12 17:45:26
>>999
結合されていると、なぜかselect後の値取得が
使えないんです。
range("A1").select:hoge=selection.value
はエラーになる。
1001:１００１
Over 1000 Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。