Excel VBA質問箱 IV

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

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


33118 / 76734 ←次へ | 前へ→

【48840】'Range'メソッドは失敗しました:'Global'オブジェクト
質問  李洪千  - 07/5/10(木) 23:13 -

引用なし
パスワード
   VBAの素人です。現在言及に使う簡単なVBAを作っています。
以下の内容を実行したら'Range'メソッドは失敗しました:'Global'オブジェクトというメッセージがでます。原因はなんでしょうか。研究のために必要なためぜひ教えてください。やろうとしているのは、以下のデータをデータベースに入力するために、項目ことに横に並べたいです。それを繰り返して行うためにいろいろ指向錯誤をしていますが、やはり基礎がないものなのでうまくいかないです。よろしくお願いします。
--------------------------------------------------------------------
Public Function pp()
Dim r As Integer
Dim t As Integer
Dim s As Integer

r = 1
s = 1

Do
d = Cells(r, 1)
cCell = Cells(s, 5)

If d = 1 Then Exit Do
t = r + 2
Range(Cells(r, 3), Cells(t, 3)).Select
Selection.Cut
Range(Cells(s, 1)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
r = r + 5
s = s + 1
Loop
End Function
---------------------------------------------------------
    2.     [110000033238]吉本,秀子
<論文>国際報道分析の枠組みとしてのプロパガンダ理論
山口県立大学國際文化學部紀要 9,A21-A30,20030325(ISSN 13427148) (山口県立大学国際文化学部 編/山口県立大学国際文化学部/山口県立大学)
        ■収録データベース :NDL NII-ELS
        ■本文: CiNii PDF    資料を入手するにはRefWorks

1 hits

【48840】'Range'メソッドは失敗しました:'Global'オブジェクト 李洪千 07/5/10(木) 23:13 質問
【48841】Re:'Range'メソッドは失敗しました:'Globa... りん 07/5/11(金) 0:19 回答
【48844】返信ありがとうございました。 李洪千 07/5/11(金) 7:31 回答
【48846】成功しましたが、止まらないです! 李洪千 07/5/11(金) 8:47 回答
【48847】Re:成功しましたが、止まらないです! Jaka 07/5/11(金) 11:06 発言

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