|
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
|
|