- 1 名前：デフォルトの名無しさん mailto:sage [2012/08/19(日) 17:01:50.51 ]
-
ExcelのVBAに関する質問スレです
★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。
★2 ExcelのVBA以外の部分に関する質問はNGです。
但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。
★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。
VBAとは､『Visual Basic for Applications』の略で
Application
├Workbooks
｜└Workbook
｜ ├Worksheets
｜ ｜└Worksheet
というApplication以下のオブジェクトを､VB言語で操作するものを指します。
例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。
★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。
★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）
前スレ：
Excel VBA 質問スレ Part25
toro.2ch.net/test/read.cgi/tech/1341722983/
- 113 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 07:10:08.53 ]
- 馬鹿には無理
- 114 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 08:24:31.30 ]
- Auto_Open が走るかどうかで判定できる気がする
- 115 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 08:44:54.04 ]
- >>112
A.xls側が判断するタイミングはいつ？いつでも？
- 116 名前：デフォルトの名無しさん [2012/08/31(金) 09:55:33.99 ]
- >>112
他ブックからオープンしたときは
A.xlsのどこか任意のセルにその呼び出し元を記述させるようにしたら良いんでない？
たとえばB.xlsからオープンしたら
Workbooks.open(A.xls)
Activeworkbook.sheets(1).cells(1,1)="B.xls"
みたいに
- 117 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 10:34:50.97 ]
- www.officiallyjd.com/wp-content/uploads/2012/06/20120618_kinashi_15.jpg
- 118 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 12:16:22.91 ]
- >>112
www.moug.net/tech/exvba/0060076.html
これ参考にならないかな？
- 119 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 16:48:56.27 ]
- 質問です
変数 = A1.value
A1のセルには、文字列helpme
となっているところを
A1にhelp
A2にme
としたとき、
変数= なんて.value書けばいいですか？
- 120 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 17:13:04.83 ]
- range("a1").value & range("a2).value
ってことか？
- 121 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 17:13:52.47 ]
- >>119
質問するならちゃんとしたコードで書いてよ
普通に考えて
変数 = A1.value
は「セルA1の値を変数に代入する」という意味のコードとしては
まともなコードとはいえない
これが「セルA1の値を変数に代入する」という意味のコードとして成立するためには
表記中の「A1」が「セルA1を意味するオブジェクト変数」である必要があるけど
それは>>119の質問内容からは確定できない
ちゃんと動作するコードとして書くなら
変数 = Cells("A1").Value
みたいに書いてないとおかしい
で、そういう意味であるなら
変数 = Cells("A1").Value & Cells("A2").Value
とすれば要求を満たせる
- 122 名前：桃白白 [2012/08/31(金) 17:25:14.21 ]
- もしくはこうか
Range("A2") = Right(Range("A1"), 2)
Range("A1") = Left(Range("A1"), 4)
- 123 名前：デフォルトの名無しさん [2012/08/31(金) 17:41:04.79 ]
- >>122
それは意味が違うんじゃない？
- 124 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 18:30:31.90 ]
- お前ら相変わらずエスパーだな俺には何言ってるのかわからん
- 125 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 18:40:22.16 ]
- >>124
>>119は意味分からんでもそれへの回答で理解できただろ
- 126 名前：112 mailto:sage [2012/08/31(金) 20:04:45.71 ]
- >>115
Aが呼び出されて直後の必要があります。
Workbook_Open起動時に本来やるべき処理があって、
それを実行する条件として、BCDから開かれたときのみとしたい。
という感じです。（直接起動時は実行したくない）
>>116
ちょうど↑の内容に絡む分ですが、オープンした後だと
分岐条件作る前にAのWorkbook_Openが走ってしまうのでダメでした。
>>118
読み取り専用に関する内容でした。
少し今回の件とは異なるように見受けられました。
>>115-118
ありがとうございました。
何か他の手を考えてみようと思います。
ってレス書いているホント今。思い浮かびました。
>116の内容をAじゃなく、開きに行くブックBCD自身にすればいいのですね。
Aを開く処理時に自ブックのCells(1,1)="flag"として
Aが開いたらCells(1,1)=""にする。
AからはBCDの存在調査じゃなく、BCD存在調査後、cells1,1の値を調べさせればいいのですね。
if Cells(1,1)="flag" then マクロから起動。 else 自己起動。見たいに。
どうもありがとうございました。
- 127 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 20:12:25.23 ]
- >>120
これでできますた！！！ありがとう！
- 128 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 20:16:13.19 ]
- こんにちは！質問です！
エクセルファイルを開いている日(毎日)からみて次の月曜日の日付を取得するにはどうすればいいですか？
つまり火曜日に開いても木曜日に開いても来週の月曜日の日付を表示し、来週には再来週の日付を表示するということです。
- 129 名前：112 mailto:sage [2012/08/31(金) 20:31:39.46 ]
- >>128
=TODAY()+9-WEEKDAY(TODAY())
月曜日に開いた場合の処理が指示されていないから、そこはつけたしてくだしあ。
- 130 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 20:34:43.70 ]
- name消し漏れ＋
日曜日の判定も必要ですな。>129だと不完全です。
WEEKDAY(TODAY()) = 0と1のとき分岐してください。
- 131 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:13:03.84 ]
- >>126
>>114はダメだったのか？
- 132 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:14:54.31 ]
- セルに文字としてプラスの記号入れ方教えてください。
- 133 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:17:13.60 ]
- >>132
全角文字で
- 134 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:18:26.75 ]
- ありがとうございます
- 135 名前：デフォルトの名無しさん mailto:sage [2012/09/01(土) 00:26:56.53 ]
- >>130
これってどういう意味？
- 136 名前：デフォルトの名無しさん mailto:sage [2012/09/01(土) 00:36:13.97 ]
- 多分解決しますた
- 137 名前：>112 >126 mailto:sage [2012/09/02(日) 03:17:58.59 ]
- >>131(>>114)
初めて知りました。
できそうですね。
ありがとうございます。
- 138 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 21:54:53.26 ]
- 選択セルの日付が今日を過ぎていたら赤文字、でなければ黒文字
をマクロにしようと思い、以下を書いた
Dim cell As Range
For Each cell In Selection
If cell.Value >= Date Then
cell.Font.ColorIndex = 3
Else
cell.Font.ColorIndex = 1
End
Next
実行するとNextに対するForが無いと言われる
If～Endをコメントブロックすると、ループは廻ります、何がいけないのでしょうか？
- 139 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:03:18.22 ]
- ×End
○End If
- 140 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:03:38.33 ]
- >>138
end じゃなく end ifでは？
- 141 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:04:45.00 ]
- >>138
最後から2行目の「End」は「End If」でしょ。
- 142 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:13:18.95 ]
- あっ！ミスってた
有り難うみんな
- 143 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 23:06:48.44 ]
- ここって資格試験について質問しても大丈夫でしょうか？
公式テキストの解答で１つ理解できないものがありまして・・・。
- 144 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 23:13:57.52 ]
- 既に終った試験だとしても、出題内容をこういうところで漏らすことが
非常識な行動じゃないと思えるほどのバカなら好きにしたらいいさ。
- 145 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 23:48:20.43 ]
- >>144
いや、実際の試験では無くて公式テキストのサンプル問題です。
ちょっと理屈が良く分からない部分がありまして。
- 146 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 00:14:38.18 ]
- 何でも良いから晴れよ
- 147 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 01:33:06.43 ]
- 福沢諭吉「脱亜論」 １８８５年３月１６日 時事新報
日本の不幸は中国と朝鮮だ。
この二国の人々も日本人と同じく漢字文化圏に属し、同じ古典を共有しているが、
もともと人種的に異なるのか、教育に差があるのか、 日本との精神的隔たりはあまりにも大きい。
地球規模で情報が行き来する時代にあって、近代文明や国際法について知りながら、
過去に拘り続ける中国・朝鮮の精神は千年前と違わない。
国際的な紛争の場面でも「悪いのはお前の方だ」と開き直って恥じることもない。
もはや、この二国が国際的な常識を身につけることを期待してはならない。
「東アジア共同体」の一員として その繁栄に与ってくれるなどという幻想は捨てるべきである。
日本は、大陸や半島との関係を絶ち、 欧米と共に進まなければならない。
ただ隣国だからという理由だけで特別な感情を持って接してはならない。
この二国に対しても、国際的な常識に従い、国際法に則って接すればよい。
悪友の悪事を見逃す者は、共に悪名を逃れ得ない。
私は気持ちにおいては「東アジア」の悪友と絶交するものである。
_,,,,,,__ __,,,__
ィｊｊ）））))))))!!!!!彡ヽ,
/ﾐ/ ,}彡ﾍ
|ﾐ{ -‐ ‐ ‐ ‐- {三=|
El=＝; ﾟ ''＝=. |ミミ,|
`ﾚｆｫ､,〉 :ｒｆｫ.､, !ｉﾙ┤
. ｛ ｀¨ i ･､¨ ´ `{ゞ'｝ 支那、朝鮮とは
. | '`!!^'ヽ .｢´ 付き合うなと忠告しておいたのに。。。
! ,-ﾆ'￢-､ ,!|,_
. ＼´?｀ ／ ∧ﾍ、
__/〉｀ー ' ´ ／ 〉 ＼
_, ィ´「∧ ／ / 」￢ｰ- ､_
-‐ ´ / / ヽ､／ / iヾ ヽ
- 148 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 14:20:50.18 ]
- >>144
公式テキストの問題と解答をまるごとここに書くのならともかく、納得できない一問について
ここに書くことのどこに問題があるのか？
- 149 名前：桃白白 [2012/09/03(月) 15:19:53.53 ]
- 引用の範疇なら問題ないだろ
VBAの設問なのか？ 何だったら桃白白がお答えしちゃうけど？ 貼っちゃいなよ
- 150 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 20:55:59.52 ]
- >>145
気になるから貼ってくれよ
- 151 名前：デフォルトの名無しさん [2012/09/03(月) 21:54:07.61 ]
- 質問です。環境はwindows XP , Excel2003です
エクセルファイルをメールで送信するコード、つまり
Application.Dialogs(xlDialogSendMail).Show
を使いましてメールを送信する際、引数の"Arg1"つまり「メール宛先」に
複数人のアドレスを入れる関係上、宛先文字列が256文字を超えてしまいます。
255文字以内に収めれば、上手くメーラーが起動してメール送信準備が
されるのですが、256文字を超えると、エラーが出るわけでもなく
ただメールが立ち上がらないという状態になります。
対策をする前に、なぜここで256文字を超えたらダメなのか、を一応
知っておきたいです。どなたか、知っていたら教えてください!
- 152 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 22:24:12.60 ]
- >>151
容量的な問題255バイトまで
- 153 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 22:27:48.90 ]
- ExcelVBAでLifeGameを作った( https://www.dropbox.com/s/kntdvpijtpdje90/LifeGame.xlsm )
のですが、10世代ぐらいループさせるとExcelが固まります
何が原因か教えていただけませんか？
Windows 7 Ult x64、Excel 2010です
- 154 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 00:07:02.26 ]
- 多量のテーブルデータがあったとして、
ワークシートとデータベースって
どっちを使おうっていう判断基準を教えてください
ファイルサイズを考えて、どちらも外部ファイルにデータを置くとした場合。
- 155 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 00:24:44.36 ]
- >>154
具体例を挙げてくれれば助言はできるけど
そんなもん一概に言えないよ
- 156 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 00:30:58.40 ]
- データ数が1万レコード以上ある時はアクセスを使うべき
- 157 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 00:40:54.73 ]
- >>155
1000×3ぐらいの数値テーブルが、数十個あって
ランダムな場所を幾度も読み込んで計算するような感じです
速度が求められます
シートにおさまるんだけど、どちらがいいのかな～と。
- 158 名前：157 mailto:sage [2012/09/04(火) 00:48:49.04 ]
- ちなみに、今はワークシートのデータをdllに投げて、処理して値を受け取るようにしているんだけど、
配布やら設定やらの問題でvbaで完結させたい。
- 159 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 01:03:28.50 ]
- アクセスじゃなくてエクセルでdbやってみりゃいいじゃん
- 160 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 01:19:21.98 ]
- メモリに乗りきらないとか、ワークシートに収まらないほどのデータがあるならDB
それ以外なら好きにしろ
- 161 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 04:33:32.77 ]
- >>157
その程度のデータ量なら配列に一気に読み込んでから計算するのが一番処理が速い
- 162 名前：桃白白 [2012/09/04(火) 05:52:03.40 ]
- >>153
スリープのあとにDoEventsを呼ぶようにしたら
10000回ループしても問題なかったよ
Call VBA.Interaction.DoEvents
理屈は知らん、寝るのに忙しくて表示を更新できません的なことなんじゃね
- 163 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 06:51:00.28 ]
- 何かというと配列云々をいうアホがいるがそれだけじゃまったく不十分
アルゴリズムの方が大事だ
- 164 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 07:11:04.98 ]
- アルゴリズムの方も大事だ、だろ
シートとのやり取りのコストも、これはこれで馬鹿にならないよ。
>>153
x64Win8+Excel2013で動かしてみたけど固まりはしないな。
ただ、ESCキーでの実行中断が何故か効かなくなった。
- 165 名前：153 mailto:sage [2012/09/04(火) 07:57:06.49 ]
- >>162
固まらなくなりました。ありがとうございます
ちょっと理屈調べてみたいと思います
>>164
環境にもよるみたいですね。テストありがとうございました
- 166 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 09:26:27.40 ]
- >>153
余計なお世話かも知れないが、
プログラムが動作するしない以前の問題として
変数の宣言が間違ってる。
dim a,b as integer
だと、aがVariant型、bがInteger型になる。
あと、変数名間違ってるのが数カ所あった。
Option Expricitで変数の宣言を強制する癖をつけた方が良いと思う。
- 167 名前：166 mailto:sage [2012/09/04(火) 09:31:39.92 ]
- 綴り間違えた
×Expricit
○Explicit
- 168 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 18:33:21.31 ]
- これは恥ずかしい。
- 169 名前：151 [2012/09/04(火) 18:52:25.13 ]
- >>152
ありがとうございます。その255バイトまでっていうのが
何の仕様なのかが、どうも掴めなくて気持ち悪いんです。
変数の型はバリアントにしているので、変数の型によって255バイト
っていう制限がかかるわけじゃないし
Application.Dialogs(xlDialogSendMail).Show の引数は255バイト
までと決まっている（仕様）、ということなんでしょうか？
- 170 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 19:26:37.09 ]
- >>169
メールのtoフィールドが255バイト以下ってのはRFCで決まってたはず
それ以上送りたい場合はtoフィールド自体の数を増やせばいいんだけど、
受け取った側から見るとあんまり気分の良い物じゃないのでBCCなどを使った方がいい
- 171 名前：桃白白 [2012/09/04(火) 20:06:56.45 ]
- >>170
マジで！？ メールアドレスの最大の長さが255文字でTOが複数のアドレスを含むことが
できるとするなら理屈としてはTOは255文字以上を許容しないといけないんじゃね？
>>151
配列でアドレスを指定できるんじゃね？
Application.Dialogs(xlDialogSendMail).Show Array("桃白白さん", "ブルマさん")
みたいにして
- 172 名前：153 mailto:sage [2012/09/04(火) 20:29:08.45 ]
- >>166
まじかよVBA糞だな首吊ってきます
- 173 名前：デフォルトの名無しさん mailto:sage [2012/09/04(火) 23:30:33.17 ]
- >>169
自作鯖ならsendmailmaxなんちゃらみたいな設定がたぶんhtod.confとかにあると
思ったけど
to Cc Bccでの上限数はあまり変わらないんじゃないか
- 174 名前：デフォルトの名無しさん mailto:sage [2012/09/05(水) 00:43:55.42 ]
- >>172
VBAがというか大本のVBがそういう仕様だからなぁ
つか知らなきゃそう書いちゃうよな
- 175 名前：デフォルトの名無しさん mailto:sage [2012/09/07(金) 12:02:31.87 ]
- 質問です。
For shapeCounter = 0 To .Shapes.Count --- (※)
Dim tempShape As Shape
Set tempShape = mySheet.Shapes(shapeCounter)
(略)
Next
このようにShapeオブジェクトを取得していたのですが、
別のマシンで動作させると３行目で停止してしまいます。
そこで、(※)を
For shapeCounter = 1 To .Shapes.Count + 1
に変えると正常に動作しました。
officeのバージョンによってこのような事が起こるのでしょうか？
もしそうだとしたらどこかにその情報のソースは無いでしょうか？
- 176 名前：デフォルトの名無しさん [2012/09/07(金) 12:47:57.33 ]
- ExcelのVBAについて学ぼうと思っています。
まだまだ初心者なので、VBAについてお詳しい方、
ExcelのVBAでのテーブル作成方法を教えてください。
- 177 名前：デフォルトの名無しさん [2012/09/07(金) 12:51:57.92 ]
- ↑入力項目は①入力年月日②転出入りフラグ１、転入２、転出（選択すると自動的にカウントアップ）③氏名④新住所⑤性別
⑥年齢⑦生年月日⑦職業⑧男性人口±⑨女性人口±⑩全体の人口±といったところです。
このデーターを格納し帳票に飛ばしカウントアップしてデイリー分の男性、女性の転出、転入を出力データとしてまとめ
総人口数を求めるようにしたいのですが。
- 178 名前：デフォルトの名無しさん mailto:sage [2012/09/07(金) 13:06:18.19 ]
- 馬鹿には無理
- 179 名前：桃白白 [2012/09/07(金) 13:34:55.59 ]
- >>175
Excel 2007 で Shapes オブジェクトのインデックスに不正な値 0 を指定してもエラーにならない
support.microsoft.com/kb/2699812/ja
これかな。
For Toでぐるぐるするなら
For shapeCount = 1 To .Shapes.Count
にしないと0からCountまでぐるぐるしたらCount + 1のShapeが存在することになっちゃう。
Shapesオブジェクトの実装はたぶん線形リストで
序数が大きくなるほどアクセスするのに時間がかかるから
For Eachでぐるぐるしたほうがいいよ。
For Each tempShape In .Shapes
Next
- 180 名前：桃白白 [2012/09/07(金) 13:39:04.73 ]
- >>176
データベースがメインになるんなら
Accessでやっちゃった方がよくね？
- 181 名前：デフォルトの名無しさん mailto:sage [2012/09/07(金) 13:58:48.61 ]
- access高いから避けたい
- 182 名前：桃白白 [2012/09/07(金) 14:17:45.26 ]
- >>181
データベースに何を使うかは決まってんの？ MDB？
- 183 名前：デフォルトの名無しさん mailto:sage [2012/09/07(金) 15:37:49.26 ]
- PostgreSQLが良い
- 184 名前：桃白白 [2012/09/07(金) 19:38:37.15 ]
- >>183
ゾウさんのやつな、かっけーよな
- 185 名前：デフォルトの名無しさん mailto:sage [2012/09/08(土) 02:27:32.71 ]
- 教えて下さい。
excel vba でIE object のコントロールで
ajaxを起動できますか?
fireeventでjavascriptはわかったのですが
selectにonclickがなくajaxでload window
しているものがありどう呼び出せばよいか
悩んでます
- 186 名前：デフォルトの名無しさん mailto:sage [2012/09/08(土) 04:45:25.16 ]
- ★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。
VBAとは､『Visual Basic for Applications』の略で
Application
├Workbooks
｜└Workbook
｜ ├Worksheets
｜ ｜└Worksheet
というApplication以下のオブジェクトを､VB言語で操作するものを指します。
例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。
★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。
- 187 名前：デフォルトの名無しさん [2012/09/08(土) 08:35:29.78 ]
- 重ねたバケツが抜けないのですが、何か良い方法はあるでしょうか？
- 188 名前：デフォルトの名無しさん [2012/09/08(土) 09:29:19.83 ]
- 外側のバケツのみ熱します
- 189 名前：187 [2012/09/08(土) 09:30:46.59 ]
- どうやって熱しますか？
- 190 名前：デフォルトの名無しさん mailto:sage [2012/09/08(土) 09:41:15.34 ]
- 油を注いで熱します
- 191 名前：デフォルトの名無しさん mailto:sage [2012/09/08(土) 09:48:31.79 ]
- >>185
的外れかもしれないけどブックマークレットで呼ぶとか？
shokai.org/blog/archives/1234
- 192 名前：デフォルトの名無しさん mailto:sage [2012/09/08(土) 20:57:56.13 ]
- >>177
DAOとかADOとかでExcelをRDBみたいにSQLで扱えるから
そういう感じでやれば良いんでね
やり方はググって好きな方法選んでくれ
- 193 名前：桃白白 [2012/09/09(日) 01:50:11.99 ]
- みんな聞いて。桃白白のExcelの使用期限が終わりそう、繰り返す、桃白白のExcelの使用期限が終わりそう。
- 194 名前：デフォルトの名無しさん mailto:sage [2012/09/09(日) 02:17:54.45 ]
- Excelって使用期限が設けられているライセンス体系もあったんか
次買うときはケチらずに無期限ライセンスのを買えよ
- 195 名前：桃白白 [2012/09/09(日) 02:27:17.22 ]
- >>194
桃白白貧乏だから買えないの。寄付する？ するんだったら桃白白はその好意を決して断らない
ことをここに誓う用意があるけど？
- 196 名前：デフォルトの名無しさん mailto:sage [2012/09/09(日) 04:13:41.72 ]
- パソコンをリカバリすればまた体験版が使えるようになるよ
- 197 名前：デフォルトの名無しさん [2012/09/09(日) 07:12:31.16 ]
- >>195
互換Office使えばタダだよ
VBA使えないけど
- 198 名前：デフォルトの名無しさん mailto:sage [2012/09/09(日) 07:31:11.37 ]
- 貧乏だけど知識が豊富で頭も良くて有用な回答者にならOfficeくらい寄付してもいいが、
貧乏な上に知識も多少の回答は出来るが並以下レベルで、頭の回転も弱い奴となると、
べつに回答者を続けてくれなくても誰も困らないから、Excelの使用期限と共に消えてくれて
一向に構わないな
- 199 名前：桃白白 [2012/09/09(日) 10:38:47.13 ]
- ∧∧
/⌒ヽ)
i三 ∪
○三 |
(/~∪
三三
三三
三三三
- 200 名前：デフォルトの名無しさん [2012/09/09(日) 15:24:00.49 ]
- >>199
俺も貧乏だから寄付しないけどタオパイパイ嫌いじゃないよ
これからは回答せずに
にぎやかしでAA貼ってりゃいいじゃん
- 201 名前：デフォルトの名無しさん mailto:sage [2012/09/09(日) 15:26:03.47 ]
- 私の声がデムパになって
波になってあなたへ向かってく
私の歌がデムパになって
波になってあなたへ響いてく
私の愛がデムパになって
波になってあなたへ届いてく
私の電子回路が短絡する前に
Electric LOVE Electric LOVE
(∩ ﾟдﾟ) ｱｰｱｰ
この気持ちあなたに届くかな
- 202 名前：デフォルトの名無しさん [2012/09/10(月) 11:09:37.38 ]
- VBAであるセル範囲をコピペして他のシートに貼り付けたとき
図のオブジェクトがどういうわけかコピペされないんです。
どうすればこの図のオブジェクトも正しくコピペされて他のシートにも表示させるようにできますか？
- 203 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 11:21:30.08 ]
- 馬鹿には無理
- 204 名前：202 [2012/09/10(月) 11:31:04.49 ]
- >>203みたいな馬鹿には回答は無理なのは分かりますよ。
- 205 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 11:37:58.19 ]
- ただ図がセル範囲からはみ出してるだけじゃないのか？
- 206 名前：202 [2012/09/10(月) 11:40:24.57 ]
- いえ、しっかりセル範囲内におさまっています。
列は3、行は20くらい、
図はちょうどど真ん中あたりにあり、1つのセルと同じくらいの大きさなのに。
- 207 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 14:03:16.08 ]
- 2007以降だっけ、図形や画像のオブジェクト仕様が変わってるから
その影響じゃね確かめてないけど
- 208 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 14:23:25.83 ]
- >>202
コードも貼らずに・・・VBAでコピペといっても丸ごと・値だけ・図だけ・云々
値だけコピぺのコードになっていないか？
- 209 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 15:30:15.55 ]
- 再現できたよ
import os
import win32com.client
def test_auto_shape(filename):
xl = win32com.client.Dispatch('Excel.Application')
xl.Visible = True
try:
book = xl.Workbooks.Open(filename)
sheet = book.Worksheets(2)
rs = "A10:D20"
sheet.Select()
sheet.Range(rs).Select()
xl.Selection.Copy()
sheet = book.Worksheets(1)
sheet.Select()
sheet.Range(rs).Select()
xl.Selection.PasteSpecial()
finally:
xl.Workbooks.Close()
xl.Quit()
if __name__ == '__main__':
test_auto_shape(os.path.abspath(u'autoshape_copy.xls'))
- 210 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 15:36:44.24 ]
- きもっ
- 211 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 15:39:18.22 ]
- こっちのコードなら図形も正しくコピペされたよ
import os
import win32com.client
def test_auto_shape(filename):
xl = win32com.client.Dispatch('Excel.Application')
xl.Visible = True
try:
book = xl.Workbooks.Open(filename)
sheet = book.Worksheets(2)
rs = "A10:D20"
sheet.Range(rs).Copy(book.Worksheets(1).Range(rs))
finally:
xl.Workbooks.Close()
xl.Quit()
if __name__ == '__main__':
test_auto_shape(os.path.abspath(u'autoshape_copy.xls'))
- 212 名前：デフォルトの名無しさん [2012/09/10(月) 15:43:04.57 ]
- Select って恥ずかしいよね
- 213 名前：デフォルトの名無しさん mailto:sage [2012/09/10(月) 15:50:50.02 ]
- なんでVBAのコードにしないんだろう？
|
 |
