VBAなんでも質問スレ

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう


関連スレ

Excel VBA 質問スレ Part25
http://toro.2ch.net/test/read.cgi/tech/1341722983/

Access VBA 質問スレ Part1
http://toro.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part58
http://toro.2ch.net/test/read.cgi/tech/1328782534/

乙

VBAでQRコードを表示したいです。
入力されたテキストからQRコードを作って、
正方形に配置したセルを白黒に塗り分ければ良いと思うのですが、
具体的にどこから手をつければ良いのかわかりません。

ieの画面操作で困っています。

操作したいie画面は左右にフレームが分割されているもので、左側に
メニューが並んでおり、そのメニューをクリックすると、右フレームに
そのメニューに応じた画面が表示されるというものです。

ie画面操作を自動化したいのですが、このメニュー選択の部分が突破
できずにいます。左フレームのソースのリンク先を使って、以下の
マクロを書いたのですが


Dim objShell As Object
Dim IEurl As String
Set objShell = CreateObject("WScript.Shell")
IEurl = "http://********************"
objShell.Run IEurl

このマクロでは、右フレーム上に画面を開くことができずに
「不正な画面遷移が検出されました」と分割フレームが消えて
全面に表示されてしまいます。

尚、クッキーを引継ぐ必要があるので、WScript.Shellを使っています。

objShell.Run IEurl の部分でカレントフレームを指定するなどが
できないでしょうか？Runの前(又は後）に「.〜」と何か挿入するとか・・。
frame(0)などを入れてもうまく行きません。

どなたかie画面操作に詳しい方、レスお願い致します。

|....,,__
|＿::;; ~"'ヽ
|　//^''ヽ,,)
|　　i⌒"
| ∀｀）　＜ 誰もいない きのこるならいまのうち
|⊂
| ノ
　　　　　 _,,,......,,__
　　／_~　,,...:::＿::;; ~"'ヽ
　(,, '"ヾヽ　 i|i　//^''ヽ,,)
　 　^ :'⌒i　　　　i⌒"
　　　　　 |（　´∀｀）　＜ きのこ のこーのこ げんきのこ ♪
　　　　　 |（ﾉ　　 |つ
　　　　　 | 　　　 |
　　　　　⊂ ＿ ノ
　　　　　　　""U
　　　　　 _,,,......,,__
　　／_~　,,...:::＿::;; ~"'ヽ
　(,, '"ヾヽ　 i|i　//^''ヽ,,)
　 　^ :'⌒i　　　　i⌒"
　　　　 （´∀｀　）|　＜ エリンギ まいたけ ブナシメジ ♪
　　　　⊂|　　（ﾉ |
　　　　　 | 　　　 |
　　　　　 ヽ ＿ ⊃
　　　　　　.U""
|
| ミ
| ミ 　ｻｯ!
| ミ
|

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。

　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

midi再生をしたいのですがどうしたらいいのかわかりません。

.midファイルを再生するのではなく、シート上に
ド|■■■
レ|　 　 　 ■■
ミ.|　 　 　 　 　 ■■■■
のように表記したものを演奏したいのです。
Beepで音階を表現する方法くらいはわかるのですが
実際は和音もあるのでBeepではできません。
あと、ピアノとかフルートなどの音色も変更できるようにしたいです。

宜しくお願いします。

>>7
シートってことはExcelか？

>>8
使ってるのはExcel2002です。

ただ実質的には二次元配列データからmidi再生ってことなので
Excelはあまり関係ないかも知れませんが。

>>7
Excel VBA 質問スレ Part25
http://toro.2ch.net/test/read.cgi/tech/1341722983/

こっちに来いってさ
こっちの>>1には何がスレ違いだのなんだの書かれてるけど
その質問もスレ違いじゃなくてちゃんと答えてくれるっていう人がいるから
行ってみたら？

>>7
「vba 音を鳴らす 音階 音色 -beep」でググれ

質問取り下げます

本スレ用NGEx
URI/タイトル：含む：VBA
Word：正規(含む)：(正義|謝罪|謝れ|オナニー|早漏)

CorelDRAWのVBAの質問ってどこですればいい?
って
「スレ立てるまでもない質問はここで 120匹目」
に投稿したらここを紹介された。

ここでおk?

スレ違いではないので質問するのはお好きなように
答えてくれる奴、答えられる奴が居るかまでは保証しないが

>>14
このスレが立った経緯を考えると
誰も答えてくれないと思うよ＾＾

そもそもCorelDRAWのVBAってなんだよ
VBAと言えばMS Officeだし、お絵かきソフトならアドビ一択だろ

参照設定に追加される奴なんじゃ？まぁ
14が書いてみないことには何ともだけど

いや、CorelDRAWはVBA装備だったと思う
つかさっさと質問書けばいいのに

>>19
あ？なにお前、質問書いてほしいのなら書いてくださいとお願いしろや

また騙されてダム板に飛ばされた訳だが

申し訳ありません。
読めもしない英語のチュートリアルを辞書片手に読んでいました。

200近いオブジェクトのうちの、いくつかのオブジェクトの内側の色を、
CMYKで指定する値に変えるというマクロを組みたいのです。
が、それ以前に指定するオブジェクトを選択できないので困っています。

それで今のところ、単純に任意のオブジェクトを選択するだけのマクロを組みたいのですが
以下のコードから If文のところをどういう風に組めばいいのかが分かりません。
ご教授願えませんでしょうか?

Sub オブジェクトを選択する()
　　dim sh1 as shape
　　'選択している全てのオブジェクトを検索
　　For Each sh1 In ActiveSelection.Shapes
　　'下の＊に適合したら選択する
　　　　if ************* Then
　　　　　　sh1.CreateSelection
　　　　　　msgbox "指定されるオブジェクトを選択できました。"
　　　　　　Exit For
　　　　End If
　　Next sh1
End Sub

>>22
エスパーさ〜〜ん、ご指名ですよ〜〜〜〜〜

普通にバックカラーがなんとかだったらってことなんじゃねーの？

普通に一昨日の天気が雨だったらってことなんじゃねーの？

CorelDRAWは解らないが、
> いくつかのオブジェクト
> 指定するオブジェクト
> 任意のオブジェクト
が何を指しているのか書かないと始まらないのでは？
丸いものだけとか、何色のものだけとかさ。

というか、人間相手に自然言語でそういうことを理路整然と語れない奴には
プログラムやマクロは無理じゃないか？

英語とかVBA語とか、言語の種類を増やす前に、まず小学校で
生活言語(母語)での基礎的な表現や会話能力を身につけた方がいいかもしれない。

おっ
住み分けが機能してるようだ
後は分断工作員さんが回答できるだけの知識をつけるだけだな

向こうは問題ないし(当然、不可能なこととかもあるから100%回答されるわけじゃないが)、
こっちは元々回答者居ないでしょ

住み分け派：ExcelVBAスレで順調に回答、向こうでスレ違いになるこっちの質問には興味なし
なんでも来い派：こっちは勝手に立てられたスレだから興味なし

また騙されてダム板に飛ばされた訳だが

大学の課題で詰まってしまったんですが、ここで質問しても大丈夫ですかね

>>30
君の行っている大学には質問できる教員はいないの？
それとも君が教員で課題を考える側？

>>31 質問しても、自分で考えての一点張りで…。
課題だから自分で調べてやりなさいとのことなんですが、そもそも文章の意味すら理解できなくて…

出来なければ出来ないでいいんだよ、まだ社会人ではなく子供なんだからさ

単位が取れないとか言うかも知れないが、単位を取ることは仕事と違って義務じゃないんだし
他人の力で単位取る事の方がよほど恥ずべき行為

子供のうちから、中身もないのに表面だけ取り繕うこと考えてるとロクな大人にならないぞ

そもそも全員が難なくこなせる内容だったら、課題の意味が無い
出来ない人、間違う人を見極めながら講義を進めていくわけだから、出来ない人が居ても何も問題わけで
その上で「出来ない人」に分類されるのが嫌ならば、他人を当てにするのではなく自分を磨け

単位はどうでもいいんですけど、できなくてモヤモヤ

なんでもいいから早く質問書けや

こういうところで回答するくらいしか優越感に浸れる瞬間が無くて
簡単な質問なら答えるべきではないものでも嬉々として答える人が居るから
試しに質問書いてみたら？

シート1の2000年のデータを初期値として、2050年までの推移を計算し、10年おきに出力して、グラフに表せ
という課題なのですが、この初期値として推移を計算するっていうところがわかんなくて困ってます

midiデバイスは扱いづらいためdx8のダイレクトサウンドを使おうと思うのですが
ブックの参照設定を開いた時に自動で変えることは可能でしょうか？

>>37
Excelの問題というよりも統計の問題ですよ、それ w
forecastとか回帰直線とか、そういったのを調べてみたら？

質問 最近 Windows 7/Outlook2010 に移って、今までXP／Outlook 2007のでVP
スクリプトから実行してたエラーが出てスクリプトが動きません。テストコー
ドを書いても同じ結果です。

エラー
Object doesn't support this property or method

VBA コード
Public Sub test_msgbox(str As String)
MsgBox str
End Sub

VBS コード
Set myOlApp = CreateObject("Outlook.Application")
myOlApp.test_msgbox("test")

何がおかしいのでしょうか？

そういう時はさ、最低限何というエラーが出て、それはどこなのかぐらい書けよ

エラーメッセージ書いてある
コードは1行だけ

エラー出て当たり前だと思うのは俺だけか？

というか、こりゃスクリプトの質問だからさすがにスレ違いだな
"VP"スクリプトではなくVBスクリプトだとしてもねw

Byval省略すんなや
書く癖を付けろ

>>42
サンクス

>>43
どうしてエラーがでるか教えてください。ちなみに前の環境ではこのエラーは
でません。

追加情報ですが、VBA 側のコードは、"ThisOutlookSession" に書いてありま
す。ウェブでこのエラーで検索すると"Digital Signatureがないとだめ"的な
ことが書いてあったのでSignatureを登録しましたが結果は変りませんでした。
VBスクリプト側にも署名が必要なのかとなと考えてますがその方法が別りませ
ん。

>>7>>38
俺が以前作ったエクセルから音を出す装置だぜ〜

apiのPlaySoundを使った場合
http://xlsg.net/cgi-bin/updown2/updown2.cgi?mode=download&id=439

dx8の場合
http://xlsg.net/cgi-bin/updown2/updown2.cgi?mode=download&id=438

これはmidiデパイスから音を出してるピンボールだぜ（諸事情でコードは見れないぜ）
http://xlsg.net/cgi-bin/updown2/updown2.cgi?mode=download&id=339

Excelで作ってる以上、見ようとすればコードは丸見えだけどな
VBAプロジェクトの保護ってのは、誤改変防止であってソース漏洩防止じゃないから

excelで惑星の位置を計算したいと思っています。
地心黄経で出したいのですが、参考になるHPがあれば教えてください。

>>48
http://msdn.microsoft.com/ja-jp/library/

エクセルでwavファイルを取り込んでmp3で保存することは可能でしょうか？

>>50
もちろん可能ですよ
WAVファイルを読み込んで、WAV→MP3に変換して、MP3ファイルを保存するだけです
WAVやMP3の仕様を入手できればそれほど難しくはありません

SOXとかのDLL使えば楽勝じゃね？

ruby2.0がかなりすごいらしい

福沢諭吉「脱亜論」　１８８５年３月１６日 時事新報

日本の不幸は中国と朝鮮だ。
この二国の人々も日本人と同じく漢字文化圏に属し、同じ古典を共有しているが、
もともと人種的に異なるのか、教育に差があるのか、 日本との精神的隔たりはあまりにも大きい。
地球規模で情報が行き来する時代にあって、近代文明や国際法について知りながら、
過去に拘り続ける中国・朝鮮の精神は千年前と違わない。
国際的な紛争の場面でも「悪いのはお前の方だ」と開き直って恥じることもない。
もはや、この二国が国際的な常識を身につけることを期待してはならない。
「東アジア共同体」の一員として その繁栄に与ってくれるなどという幻想は捨てるべきである。
日本は、大陸や半島との関係を絶ち、 欧米と共に進まなければならない。
ただ隣国だからという理由だけで特別な感情を持って接してはならない。
この二国に対しても、国際的な常識に従い、国際法に則って接すればよい。
悪友の悪事を見逃す者は、共に悪名を逃れ得ない。
私は気持ちにおいては「東アジア」の悪友と絶交するものである。

　　　　　　　　　_,,,,,,__　 __,,,__
　　　　　 　 ィｊｊ）））))))))!!!!!彡ヽ,
　　　　　　/ﾐ/　　　　 　 　 ,}彡ﾍ
　　　　　　|ﾐ{ -‐ ‐ ‐　‐-　 {三=|
　　　　　　El=＝; ﾟ　''＝=.　|ミミ,|
　　　 　 　 `ﾚｆｫ､,〉 :ｒｆｫ.､, 　!ｉﾙ┤
.　　　 　 　 ｛ ｀¨ i　･､¨ ´　 `{ゞ'｝　支那、朝鮮とは
.　　　　　 　 |　'`!!^'ヽ 　 　 .｢´　　付き合うなと忠告しておいたのに。。。
　　　　　　　 !　,-ﾆ'¬-､　　,!|,_　　　
.　　　　　　　 ＼´?｀　　／ ∧ﾍ、
　　　　 　 　 __/〉｀ー ' ´ ／　 〉　＼
　　　　 _, ィ´「∧ 　 　 ／　　/　　　 」¬ｰ- ､_
　 -‐ ´　 /　/　 ヽ､／ 　 　/　 　 　iヾ　　　 　 ヽ

誤爆にも程がある

誤爆じゃなくて荒らしだろ

この手の書き込みは、何の脈絡も無く書かれるから誤爆(投稿スレ間違い)っぽくも見えるが
自己主張を拡散するために脈絡のないスレであっても意図的に投稿しているので
誤爆、誤投稿の類ではない

やってる本人は、自己の主張の正しさを拡散しようとしてるのだろうけど
こういうマナー違反な荒らし宣伝的な投稿を繰り返せば
主張の内容は拡散されても、その主張は荒らしを繰り返すような
キチガイの主張としてしか認識されなくなって逆効果なんだけど、たぶんバカだからそこを解ってない

>>50
エンコードに必須な複数の技術に特許かかってるから無理っぽいぜ

レイヤー1と2はいける
3は無理ゲー

コマンドラインのフリーウェアを呼び出す

OS 7(64bit)
excel2010
memory 8G うち使ってんのは1.8Gくらい？（タスクマネージャーで）
cpu i5


漠然とした質問になってしまいますが、Excelが応答なしになるのを回避出来る手段は
DoEvents以外にどのようのものがあります？

今作ってんのがやたらに応答なしになってしまうもんで^^;

応答無しになる原因がわからないと、なんとも言えないよ。

>>60
応答なしになるミニマムコードを晒してみ

期待通り動かすと応答なし状態になるのを改善したいのか、
なぜ応答なしになるのかわからないけど、それを避けたいのか

>>60
セルを頻繁に書き換えるようなコードの場合は再計算、再描画を止める

>>61
…確かに

>>62
DBとのやり取り部分があったりするので他の環境では実行不可なんです orz

>>63
個人的には後者なんですけど、晒せない以上回答は無理ですよね

>>64
再計算はありません。シートの切替も無いので再描画云々でもないです

ということでスレ汚しすいませんでした

>>65
そりゃDBの応答待ちなんじゃねーの？
ステップ実行してみたら？

>>65
実行の可不可なんてどうでもいいからソース晒せっての

度々スレ汚しすいません
ソースの中で無限ループしてるとこがあり、それを修正したら直りました

m(__)mです

テキストファイルがあるとして、そのテキストファイルがUNICODEなのかANSIコードなのかどうかって判定できます？

馬鹿には無理

>>69
基本的には機械的に判別するのは無理
UNICODEの場合、先頭に特殊なバイト列が入ってる場合がある
それ以外だと、それぞれのコードで文字として不適切なバイトコードがあるかどうか見る

>>71
>機械的に判別するのは無理

そうっすかぁorz
今、手元にUNICODEのテキストファイルがあって、バイナリエディタで見れば先頭が FFFEなんでそれを見ればいいのかなと
思ってたんですが、UNICODEもいろいろ種類がありそうですからねぇ

諦めます

>>72
そりゃBOM（要検索）だ。

>>72
前に作ったからキーワードだけ

・Openステートメントでバイナリで開く
・Byte型の配列に格納する(InputB と LOF を使う)
・先頭の二要素(2バイト)を確認して、それぞれFF、FEであるか確認する

適当だけどこれでいいと思う

>>74
thxです。

>>74
全然良くない。
BOM無しのファイルもあるんだけど。

BOM無しのファイルは絶対に取り扱わないか、BOM無しの場合判定に間違っても良いならそれでいいけど。

VBA使ってエロ画像取得ってできるの？

できる

自動でエロＡＡを自動増殖させるプログラムください

自動で自動増殖・・・

なんか頭痛が痛くなってくる言い回しだなw

最初の自動は最後のくださいにかかってる

VBAでADSIを利用して、Outllokパブリックフォルダのアクセス権変更を行うことは可能でしょうか？
VBAを実行する環境はサーバではなくクライアントマシンで、パブリックフォルダの所有権を持ったユーザでログオンします。

ヒントだけでも頂けると有り難いです。
よろしくお願いします。

>>82の追記です。
目的は、大量のアクセス権変更を一括処理化することです。

>>83
要するに、知りたいのはアクセス権変更じゃなく
ディレクトリツリーの一括処理方法なんだろ？

>>84
はい。

少しぐぐってはみたところ、「サーバ環境での処理にADSIで〜」という記事ばかりがヒットしてきて、
クライアント環境からアクセス権変更などの処理がまず可能なのかが分からなくて。。

可能だよ。少しではなく本気でググればクライアントからのやり方も解説されてるから頑張れ。

馬鹿には無理

要するに>>87には無理

（私みたいな）馬鹿には無理（です）

事務職なのだが、職場のWebシステムが出来が悪くて、設計ミスでシステムで治せないから、
データ修正を手入力で何千件もやれとメーカー様から言われた。

頭にきたので、VBA(端末にエクセルしか入ってない)で、IEの自動操作で修正入力しようと
作ってはみたのだが、ふと思ったのだが、これって著作権違反になる?

同じように困ってるほかの組織にプログラムを配るのも、無償、有償かかわらずダメ?

何言ってんだ

>>90
H社？

>>92
Yes。

ああ、某ワン・ツーのことね

某ワン・ツー　とは？

>>90
誰が何の著作権を違反しているの？

>>95
某社の社内事務専用システム。

>>90
プログラムを作ったのはあなたでいいの？
何を参考にした？あるいは何かを丸パクリした？
それには他者が権利を主張するどのようなものが関わってる？

細かいところちゃんと書いてくれないと望んでる答えにならないけど、
今書いてる限りではたぶんならないと思うけどね。
あと著作権は余裕があったらさわりだけでも勉強しましょう。

様々なテストケースでちゃんと試してから配れ。
自分とこでちゃんと動いても他所のとこで動かなかったなんてよくある話。
個人で作ったものだし、一気に配らない方がいいかも。
そのプログラムを配布した事でお前さんへの責任が一気に増えることに
なってしまうから気をつけなされ。

>>98
作成したのは自分。Webシステムのhtmlが見えている状態(右クリック禁止処理はされてるが、
IEの通常機能で丸見え)のため、ボタン等の各要素のNameがわかったため、自動操作のコード
は作りやすかった。

メーカーのコードを改変しているわけではないし、Webシステムも正規の権限でログイン
している。ただ、メーカーのコードを解析し、そのNameを自分のコードで利用しているのは
どうなのかなと思ったわけです。またWebシステムの機能を、ログインした後、VBAから自動
操作で、表示された情報を読み書きし、ボタンを押していくって流れなので、入力値のエラ
ーチェックや、面倒な計算などは、すべてWebシステムがやってくれてる状態。

Nameを使わないコーディングもできるけど、もうすでに作ってしまった。

又、ただの末端ユーザーのため、テスト環境すらなく、恐ろしいことに
ぶっつけ本番。その分、注意して作成してはいる。

メーカー様や、専属SE、システム部門には、頼れない状態。
でも、数千件におよぶ手作業でのシステムの入力だけは、阻止したい。

右クリック禁止かぁ、懐かしいよね。

今となっちゃIE、Firefox、Chrome、Opera、Safari
通常用いられるどのブラウザでも普通にメニューに表示されている
開発者用機能で全部見れるんだからさ。

>>99
ただの末端ユーザの作ったものを他の組織に展開するとか
責任の所在がはっきりしてるならそれでいいんじゃないの？
VBAに関係ないからそもそもスレチな気がする

それ以前に「質問する態度」ではない。内容も文体もね。
単に、自分のスキルをさり気なく自慢したいだけ。

遅レスすみません。

>>86
可能であれば頑張って調べて書いてみます。
ありがとうございました！

VB.NETはおいておいて・・・

VB6とExcel2010とかに付属してるVBAって
シンタックス的な違いとかあるのでしょうか？？

もしよろしければ違いを明示しているサイトなどを教えてください。

>>104
違いはない

>>105
素早い回答ありがとうございます。
言語的な勉強はVBの本でやってみます。

ありがとうございました。

さっきVBAスレに誤爆しました
exlap.rb使ってRubyでマクロ組み込もうとしてます
Excel2007で.xlsで保存してるんだけどマクロのセキュリティはあらかじめExcelの方で
有効に設定しなきゃいけないんだよね？
有効にしても動かないしどれ選んでも動かないんだけどどうしてなの？

>>107
Excel VBA スレで突込みが入ったのは
"Excel"　の部分ではなく　"VB"A　の部分が原因だよ。

ばかすぎた
2007では.xlsmにしなきゃいけないのか
失礼しました

>2007では.xlsmにしなきゃいけないのか

www
ま、知らなかったら引っかかるのも当然で、俺も最初は？となったけど

Excel2007の参照設定をマクロの実行で変更する方法ありませんか？
別言語でExcelを操作しているのでその都度変更できません
具体的にはMicrosoft Scripting Runtimeにチェックを入れたいです
ひとつの別言語のプログラムでMicrosoft Scripting Runtimeにチェックを入れるマクロを実行→やりたい処理というように書きたいです

>>111
References.AddFromFile

>>111です
直接書き込むと出来る方法をみつけました
ですが，外部から他言語でマクロを組み込もうとすると
"C:\Windows\SysWOW64\scrrun.dll"と書いたところが
"C:WindowsSysWOW64 crrun.dll"と書き込まれてしまいエラーが出てしまいます
これを回避する方法はありますか？

>>112
書き込んでいる間にかぶってしまいました
ありがとうございます
それを見つけて実装しているところですが>>113の問題にぶつかっているところです…

そんな初歩的なところで躓くなよw

解決しました！嬉し

誘導されてしまったので、こっちで再度質問させてもらう。

クラス モジュールで実装したクラスを、クラス名から動的にインスタンス化する方法ってないだろうか。

VBAProject
　- 標準モジュール
　　+ FilesCommon
　- クラスモジュール
　　+ Files
　　+ TreeFiles
　　+ ListFiles

みたいになってるときに、
[TreeFiles]
　Implements Files
　' 〜
[ListFiles]
　Implements Files
　' 〜
[FilesCommon]
　Sub ShowList(ListType As String)
　　　Dim Files As Files
　　　Set Files = CreateObject(ListType)
　　　' Filesを使ったリスト化処理
　End sub

てな感じにして、クラスモジュールの追加と呼び出し文字列（ListType）の変更だけで
挙動を変えたい（ListType の Select Case を作ってそこもメンテさせるってのはちと不味い）のだが、良い方法ないもんかな
CreateObjectは当然COMでもなんでもないクラスモジュールを扱えないし、
Appication.EvaluateやCallByNameはNewできないし、
VBScriptのEvalをホスト越しに呼び出してもプロジェクト内部のクラスモジュールまではあずかり知りません、だし、
うまく解決するすべがないものかと・・・。

> 質問させてもらう。
> ないだろうか。
何様だよ

>>118
質問スレなのだから質問者がいないと成り立たない。
質問する方が立場が上なのは当然である。

「質問」を「生活保護」に変えてみると楽しい事に

自演質問自演誘導
アホかとｗ

ム板は相変わらず成りすましが酷くて話にならんな

IDありにすべし

>>117
それが仮にできたとして、ListTypeに不正な値が入ってたらどうする気だ？

>>124
そんときはエラーになっていい

おまいら何時間かかってんだよ。
早く答えろや。

>>124
エラーになっていいって事は、エラーにならなくてもいいのか？
想定外のオブジェクト生成されて平気だと？
恐ろしい設計だな

>>123
ム板やマ板でID有りにしたところで、大した意味はない
ここに来るほどの人ならそんなもん(ry

IDを導入したら白濁桃が名無しと使い分けできなくて困るだろ
可哀そうだから反対だわ

>>127
ユーザーの入力を受けるわけじゃないから。
そこに入る文字列は、マクロをカスタマイズした人間が決める。
カスタマイズ時の手間を減らしたいだけなんだ。

>>117
無理

>>117
＞Sub ShowList(ListType As String)

これじゃだめなの？
Sub ShowList(Files As Files)

Excel VBAでマークシート(JPEG画像化済)のOCRを作りたいのですが、
ググってもこれといったヒントが見つかりません
ライブラリ的なものでもよいですし、力技でもよいですし、
なにかヒントをいただけないでしょうか？

>>133
ExcelVBAなんだから、Excel上での処理が基本の言語なんだから
なんでそこまで複雑なことをやらせようとするかが不思議だ
勉強したわけでもなんでもないが、VBとかJava、Cとかの
メジャーな言語を使うとか、画像処理自体に強いライブラリを持つ言語を
選べばいいんでないの？

>>134
読み取った結果はExcelで管理して集計とかもExcelでやりたいしExcelで全てできれば便利かな〜、と思ってね
VSとかEclipseとかのIDEをインストールするのも手間だし(そもそも知識がないからわからんし)

>>133
http://imagingsolution.blog107.fc2.com/blog-category-10.html

>>136
情報ありがとうございます
画像をセルに表示する発想はなかったのでちょっと面白そうですね
ただパフォーマンス的に難がありそうなので外部ツールで二値化と縮小化を行ってから
シートに取り込んで処理してみようかと思います

二値化とかできるなら後は特定座標が塗られてるかどうか判断するだけだと思うんだがな
マークシート読み取りと文字認識は別なレベルの話だぞ

>>138
その後ググってbmp2csvなるものを見つけました
OCRじゃなくてOMRでしたね、間違っててスミマセン

例えば5桁の数値があったとして、その各桁の数字を知るとしたら、
（eg 54289 → 5,4,2,8,9 56→ 0,0,0,5,6）
5桁目を10000で割り商を得て、余りが0でないなら次に1000で割り、…10で割って
商と余りを得る
みたいな方法でやっていくしかない？

それでいい

やっぱりVBAではそれしかないか。ありがとう

>>140
あまり変わらないけど、文字列とみなして
1文字目+2文字目+・・・
としたほうがコードがシンプルになるかもね。

>>143
最初に文字列とみなし、その長さを調べて、midで分解していくってこと？

上記の例なら 56は2文字だから上3桁は0で残り2文字について調べれば良いのか。
そういう手もあるのか、なるほどです。

>>140の例に上げてる奴に2桁の数字も入ってるから
>>143まんまだと失敗する恐れがある。
左から取得したら駄目だな。
右から1文字目、2文字目〜を取得ということか。

配列設定
数値設定

整数値を取得
ループ開始
１０のあまりを配列に出力
再配列
１０の商を数値に再格納
数値が０の場合ループ解除
ループ終了

これでいいやないの

＞これでいいやないの

言語障害ですか？

>>147
外国人か？
口語体は義務教育で習う

最大値が99999と決まっているなら
100000を足してからMID関数で2〜6文字目を取り出すのが一番コードがシンプルになるんでない？
Format関数でもいいけど

どっちでもええやないの

>>148
x　これでいいやないの
o　これでええやないの　　　だろ？

言語障害とか以前に精神とか脳を汚染されてるんじゃないだろうかという疑念が

「これでいい」「これでええ」
どっちでも通じるんだよ
こういうのって日本語学校ではなかなか教えないからね

にゃるほろー

正しい日本語、なんてどこにもないよね
使う人によって違うし、使ううちに変化するし、文化や流行を組み込んでいくものだし

ＶＢＡスレで自分の知らない日本語の使い方されたからって個人攻撃する
その卑しい精神性をまず自覚しろってことですねてんてー

>>149
なるほど！

記録されたマクロを解読しているのですがわからないところがあるので質問させてください
A1にもともと書かれているテキストがとても長くてダブルクリックしないと全文は読めない場合
Range("A1").Select
ActiveCell.FormulaR1C1 = "A1の長いテキスト全文"
Range("B1").Select
こうなった時はFormulaR1C1で何が起きているのでしょうか
実際にA1をダブルクリックして全文を読もうとするとマクロは
Range("A1").Select
ActiveCell.FormulaR1C1 = "あ"
With ActiveCell.Characters(Start:=1, Length:=255).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 8……といった感じでフォントの設定が数行入った後で、
Range("B1").Select となるのですが…

すみません"あ"のところは前半と同じ"A1の長いテキスト全文"です

FormulaR1C1の位置はプロパティって言って種類や形式を指定する部分だから
その部分では何も起きてないし何も起きない。

そのコードを読めればわかるけど
セルをダブルクリックする行為はエクセルからしたらそのセルの値を再入力するのと同じ行為ってこと

んでもって、>>156のwith以下はただセルのフォントを指定してるだけだら
今回は省略してもいい部分

>>156
セルのダブルクリックは「キーボードによるセルの編集開始」なので、それはマクロでは実現できませんし記録もされません
そのマクロには「(何もせずに)編集終了」→「カーソル移動」が記録されているだけです

つまり記録した人はセルをselectして→何もせずに編集終了して→別のセルをselectしたのですね
何もせずに編集終了ってどういう動作をすれば記録されるのでしょうか
いろいろ試してるんですけど同じようになりません

>>160
VBAにそんな機能がないので、どうやっても記録されない

エクセル2003だとセルA1をダブルクリックすれば
Range("A1").Select
ActiveCell.FormulaR1C1 = ""
の2行が記録される

最後にアクティブを解除するために別のセルクリック

ぜんぜんトンチンカンなこと言ってた
>>160
何もせずに編集終了は別のセルクリック（select）すればいい

>>160
セルをダブルクリックする目的は、隠れている部分を読むためなんだよね？
マクロでセルをSelectするだけでは、隠れた部分は出てこないっていうか、そんな方法はないよ

API無しで簡単にやるなら同位置にテキストボックスを貼り付けるぐらいしかないんじゃないかなあ

そもそもマクロの実行中にセルをキーボードで編集することはできないんじゃ

sendkey使えば？

SendkeysでF2を送っても、VBAの実行中はセルの編集はできない(編集状態にならない)

あんまやったことないけど
恒常ループかけて編集可能にしてみるのは？

とりあえず右クリックで
cancel =TRUE にするかsendkeysの後doeventsでセル編集モードになった
文字送りも可能
シートを最前面に出して実行すればバックグラウンドでコード動かしてても問題なし
必要なら同期処理とればおk

ってそもそも問題が全然違うんだな

単純に見やすくしたいだけなら
ショートカットキーにマクロ割り当てて
セルの書式設定を折り返しに、フォント小さくしたり
行や列のサイズをコントロールしたり
見終わったら元に戻すとか

がちがちにやるなら表示フォントから文字列サイズ計算して綺麗に並べるとか

透明化フォームに読み出した文字を拡大表示して虫眼鏡ツール作るとか

いろいろやり方はあるかと

個人で遊んでいるなら良いけどVBAのSendKeysは不安定でバグ含みなので
業務用を考えるなら慎重にな（特に{F2}{NUMLOCK}絡み）お勧めはWSH併用

初心者の質問丸なげで申し訳ないです。
excel2002でマクロ組んでいますが、
sheetにある画像のみ印刷するように設定したいと思っています。
そんな方法あるでしょうか？
よろしくお願いします。

>>172
シートのコピーを作って画像以外を消去してから印刷

>>173
ありがとうございます。できそうな気がしてきました。

すみません、質問させてください。
Excel2003でUserForm1の中にTextBox1があります。

あるマクロからこのUserForm1をロードして、自動的にTextBox1の中に
あるセルのデータ(或いは変数に入っているデータ)を入力させたいのですが、
この様な方法はあるのでしょうか？

宜しくお願いいたします。

>>175
UserForm1.TextBox1.Text = Sheet1.Range("A1").Value
UserForm1.Show

フォームがモーダルじゃなくてもいいなら
UserForm1.Show False
UserForm1.TextBox1.Text = Sheet1.Range("A1").Value

>>176
ありがとうございます！
逆にモードレスの方が良かったので大変助かりました

諸先輩方、どうか教えておくんなまし。
エクセルVBAエディタにて
IF文で文字変数がユーロ記号（?）の場合の文を書きたいんですけど、VBAエディタ上で書くと。。。
If str = "?" Then
　　何かしら実行
End If
なのが
If str = "?" Then
　　何かしら実行
End If
みたく？マークになってしまいます＠Office2007/Win7のVBA
エクセルのシートやパワポ上ではふつーに?記号は表示されるのに
なにゆえVBAエディタ上だけ？になるのでしょうか？
Unicodeとかのコード設定かなと思ったのですがVBAエディタ上で
設定できそうな項目なさそうですし。。
ぜひ教えて下さい！

>>178
VBAそのものはUnicode対応だが、VBEはしてない
ChrWを使え

>>179
ありがとうございます！
msgboxで出してもずっとハテナマークだし半泣きでした。
頂いたヒントでググってたら↓があって読んだら仕組みわかりました。
http://codezine.jp/article/detail/1718

VBAでIEを操作し、リンクをクリックしたいんですけど
それについて詳しく解説してるサイトとかありますか？

ていうか、VBAでIEを操作する際って

XXXXXX.Navigate "http://XXXXX.ne.jp/"

このページを開く構文は必ず必要なんですか？
自分でIEのページを開いて、ページを開いた後の処理をVBAにやらせるってことはできないんですか？
ページを開いた後の処理をVBAにやらせるには、ページを開くことからVBAにやらせないといけないんですか？

きみにおあつらえむきのcomponentがある
http://www.activexperts.com/

先輩方にご教授願いたい。
ExcelVBAでマクロ作ってるんですが、Win32API関数で、引き数にNULLポインタを渡す場合は どう表記したら良いのでしょう？

>>183
0

>>184 有難うございます。
0だと型エラー為ると勝手に思い込んでました。
お恥ずかしい
精進します

>>185
vbNullString使え

いや、0のがいいと思う。
memset(ptr, NULL, len)
みたいで気持ち悪い。

>>187
確か、APIの引数にNULLポインタとして渡す目的も、vbNullStringにはあったと思うが

outlookで予定表をcsv書き出しするとアラームの日付と時刻の項目があるんですけど、
AppointmentItemオブジェクトを見てもReminderプロパティにdateとかtimeがないんですけど
どこにセットしろっていう話なんでしょうか。

http://msdn.microsoft.com/en-us/library/office/ff184623%28v=office.14%29.aspx
http://www.youtube.com/watch?v=SgmhgeTDc5M

>>190

レスありがとうございました。とりあえず、引き算して掛け算してReminderMinutesBeforeStartに放り込んで対応しました。

MSはVB6からVB.NETにしたのにVBAはNETにしないの？
新人にVBAの改造させたら言語が古いとか行って文句を言ってくる

Excel4Macroで実装させろ

そいつの得意な言語で作らせる代わりに納期を半分にしたらいい

文句を言いながらも、VBAを十二分に使いこなしていくならそれでいい。

accessで作る出力用レイアウトは、行高と列福を調整するとき、
その左右または上下の枠が自動的にずれないからレイアウトの調整が大変と聞いたのですが、
他の言語でもそうなんですか？
素人にとってはエクセルのように自動でずれてくれるようなイメージが刷り込まれています。
おかしなことを言ってたらすいません。

>>196
内容ではなく文体がおかしい

いや、なんとなく言ってることは解るんだけど、
エスパーしてまで答えるような内容じゃないしな

それ言語の話じゃなくてエディタの話だしな

ここはごく数人のヘタレどもがチンシコする糞スレです
うまく答えられないときはエラそうになんだかんだいちゃもんつけてきます
看板に偽りスレなので素人が質問しても時間の無駄です
わかったら相手にせず黙って去りましょう

ていうかVBA全く関係ない質問に見えるけど。

Outlookで予定表の一覧をcmd.exeに出力する方法を教えてください

CreateObject("WScript.Shell") を使います

>>201
cmd.exeに出力ってどういう意味だ？
とりえあず予定表の一覧なら
http://msdn.microsoft.com/ja-jp/library/office/bb219895(v=office.12)

PowerPoint2013で、vbaのマクロをボタンに登録したときの起動が遅いみたいなんですけど事情をご存知の方いませんか。

動作がおかしいって話はググるかメーカーへ

パソコン自体に既に異様に負荷をかけている

どうもスライドショーモードにしてる時に、マクロの実行までのタイミングでもたついてるみたいです。
始まってしまえば実行速度は2010と変わらないみたいです。

ワード2003で、フォームに入力した郵便番号、住所、氏名をテキストボックスに入力するVBAを作ったのですが、
氏名だけOKボタンを2回押さないと反映されません。なぜこうなるのでしょうか。

ワード2013では一度に反映されますが、2003で使う必要があるので困っております。

以下に参考までに実物をアップロードしました。どうかご確認・ご教授の程お願いします。

http://www.dotup.org/uploda/www.dotup.org4059350.doc.html

了解

質問です。
EXCELのVBAでアプリを操作したいのですが、できますか？

したいことの大まかな流れですが、下記のURLでダウンロードできる「アマチュア局インターネット申請」のアプリを起動し、作業を自動でさせたいのです。
http://www.denpa.soumu.go.jp/public/prog/index.html

アプリは総務省提供のものです。

具体的な行いたい作業としては
�@アプリを起動
�A「確認」のダイヤログで「キャンセル」を選択
�B新しく開いたウィンドウで「ファイルから読み込む」を選択
�C「選択」のダイヤログでエクセル上にあるパスのファイルを選択
これを繰り返したいのです。

EXCELのVBAについては基本的な知識はあります。
よろしくお願いします。

>>210
じゃああとはWinAPIの知識だな
主にウインドウハンドルと、ウィンドウメッセージについて勉強してこい

大まかに話すと、該当アプリのウィンドウハンドルを取得して
操作するコントロール(ボタンや入力ボックスなど)のハンドルを取得して
そのハンドルに操作メッセージを送れば良いだけだ

あるダイアログのOKボタンのハンドルが12345だとしたら
ハンドル12345にクリックメッセージを送れって命令を書いてやると、そこに
マウスカーソル持って行かなくてもそのボタンをクリックしたことになる

ただ、この手のものはプログラムで申請の自動化とかすると、不正(提供者が意図しない不正規の手順)な申請とかで
プログラム作った奴が訴えられかねないから、自己責任&具体的なコード回答は無しで頑張るしかないぞ

>>210
(1)〜(4)を繰り返すと、大量にアプリケーションが起動することになると思うのだが、やりたいのは
それなのか？
仮に、申請までを繰り返したい場合、法的/道義的にそれは許されるものなのか？
申請を受け付けるサーバへの攻撃と取られる可能性があるぞ。

スレ誘導
http://toro.2ch.net/test/read.cgi/tech/1363042502/

回答ありがとうございます。
まず、私がこの操作を自動化させたい目的ですが
ファイルから読み込んだブラウザのウィンドウを連続印刷したいからです。
印刷処理の部分については自分でコードを作れると思いますので省いておりました。

このアプリを使って既に申請されている局の申請ファイルを読み込むと
申請した内容が整理された形でブラウザに表示されます。

WinAPIの知識ですか。
まずはネットで調べてみたいと思います。

WSH

すみません、下記コードを修正して頂きたいのですがお願いできませんでしょうか？
修正内容はダイアログを表示しないで自動的にtest1.jpgという名前でCドラ直下に保存できればと思います。

Option Explicit

'ファイル保存ダイアログ
Private Function GetSaveFileName() As String
Dim sfile As String

sfile = Application.GetSaveAsFilename(fileFilter:="JPGファイル (*.jpg), *.jpg")
If sfile = "False" Then
GetSaveFileName = ""
Else
GetSaveFileName = sfile
End If
End Function

Private Sub CommandButton1_Click()
Dim rg As Range
Dim cht As Chart
Dim fina As String

'保存ファイル名を取得
fina = GetSaveFileName

If fina <> "" Then
'選択範囲を取得
Set rg = Selection
'選択した範囲を画像形式でコピー
rg.CopyPicture appearance:=xlScreen, Format:=xlPicture
'画像貼り付け用の埋め込みグラフを作成
Set cht = ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
'埋め込みグラフに貼り付ける
cht.Paste
'JPEG形式で保存
cht.Export Filename:=fina, filtername:="JPG"
'埋め込みグラフを削除
cht.Parent.Delete
End If
End Sub

馬鹿には無理

>>216
嫌です

>>216
桃白白がお願いされちゃう。

Option Explicit

'ファイル保存ダイアログ
Private Function GetSaveFileName() As String
GetSaveFileName = "c:\test1.jpg"
End Function

Private Sub CommandButton1_Click()
Dim rg As Range
Dim cht As Chart
Dim fina As String

'保存ファイル名を取得
fina = GetSaveFileName

If fina <> "" Then
Set rg = Selection
rg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Set cht = ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
cht.Paste
cht.Export Filename:=fina, filtername:="JPG"
cht.Parent.Delete
End If
End Sub

>>220
無事動きました
本当にありがとうございました orz

最後がm(_ _)mではなくorzなのが回答内容を反映してて良い味出てるな

>>222
おいやめろ。まるで桃白白がお答えした内容が期待はずれの
ものであり桃白白に失望したといわんばかりじゃないか。
そんなことほんとは思ってないくせに。心にもないこと言わないでちょうだい。ふん。

おまいら最高すぎ。
クラムチャウダー吹き出した。

VBAというよりも出来た後のことなんですが、、皆さんマクロをどうやって管理されてます？
会社でバージョン管理システムを入れてるところならそれを使ってるんでしょうけど。

今んとこ、出来たマクロに日付を入れて特定のフォルダに入れてるんです( e.g xxx_20130402.xlsm etc)
が、やはり別のフォルダに入れて更新
したのを時々忘れてしまったりしてどうしようかなぁ〜と思っています^^;

VSS

>>225
最後にマクロ保存のコードを追加したりしてマクロの保存もVBAでやっちゃえば？

>>227
実行した時に自分自身を特定のフォルダに上書き保存するってことですかね？
あぁそういう手もあるか。

>>228
ファイル名は日付で管理してるということだから
常に上書き保存じゃなくて同じファイル名が存在していないときのみ保存するとか。

>>229
参考になりました。ありがとう

俺の場合
エクセルＶＢＡのマクロなんて、エクセル表の補助作業にしか使わんから
もとのエクセル表の管理が出来てればマクロの管理なんて考える必要ない

俺はVBAから入ったので、最初のころはExcelに関係ない
ウィンドウズアプリケーション的な物もVBAで作っていたから管理が面倒だった
そのうちVB6、そしてC#を使うようになったから今は>>231と同じだが
管理に奔走する奴等のことも理解できる

標準モジュールに自作したマクロが多くなりすぎて、修正を加えたいマクロを探すのが大変になってしまった
例えば、Sub JISAKU（）のように　マクロ名JISAKUからマクロを記述した該当モジュールを即座に見つける方法ってありますか？

普通に Ctrl + F で　 Sub JISAKU()　と検索すれば良いのでは…。

>>234
ほんとだ！
こんな簡単に検索することができたのか

今まで何という無駄な時間を＿|￣|○

有り難う！！！！

その程度で喜んでるようならShift+F2で定義に移動した日にはショック死するんじゃないか

まさかとは思ったがw

補足だけど、検索後にプロパティウィンドウ
(デフォルトなら左上のはず)
の該当モジュールが反転するので、
検索対象がどのモジュールにあるのか一発でわかる。

236に便乗するけど、定義に移動したのちに
Ctrl + Shft + F2 を押下すると元の位置に戻るので
覚えておくと作業が捗るよ。
(プロシージャの数が増加するほど役に立つ。)

>>233
VBEが表示されているときにF2キーでオブジェクトブラウザが表示される。
そこで検索したり、"VBAProject"を選択してシートやモジュールを選択して、定義したマクロ一覧なんかをブラウズできる。
（VBAProjectというのはプロジェクト名のデフォルト）

VBEで編集中のときは、コード入力ウィンドウの上部に"(declaration)"と表示しているコンボボックスがあるので、そこで編集中のシートやモジュールの関数を選択できる。

Excel2010まではVBE終了させるとウィンドウの位置や大きさを以前は覚えてくれてたのに
Excel2013にしから一切覚えなくなった

Excel立ち上げてVBE開くたびにウィンドウが全て消えてるので不便です
Access2013のVBEは以前と変わらず覚えてるのだけど、Excel2013VBEの何が原因なんでしょうか？

エクセルVBAのスレッドで聞いたんですが回答が得られなかったのでこちらに書かせてください。
スマートアートオブジェクトの図についてなんですが、
vba上で、挿入した画像のみをクリアして、初期状態に戻す方法がありましたら教えてください。

>>240
「vba上で」は「挿入した」にかかるのか「戻す」にかかるのか
桃白白よくわかんないんだけど、削除する画像にだけ特別な名前をつけちゃったらいんじゃない？
DeleteImage1みたいな。画像を列挙して名前にDeleteが含まれてたらそれを削除みたいな。

EXCELのVBAを使って、amazonの画像の取得を試みたいんだけど、
たとえば、[B]列セルにamazonの商品ページURLが入力してあって、
そのページ毎にある

http://ec2.images-amazon.com/images/I/●●●●._SL500_AA300_.jpg

という画像ファイルのURLを検索して[C]列セルに抽出したい場合、
どのようなコードを組めば良いでしょうか？
よろしくお願いします。

嫌です

>>242
vba html parser で検索

超初心者です。色々調べましたがわかりませんでした。
是非お力をお貸しください。

エクセルで、B列だけ、B2から下へ空白があるまでの文字を
テキストファイルに書き出し、1.txtで保存し、
またその下の文字列から次の空白の上までを2.txt・・・と、
名前を付けて保存したいのですが、どのようなコードを組んだら
よいかご教授ください。よろしくお願いします。

>>245
このようなコードです

Sub B_n_txt()
　　n = 1 ' ファイルの番号
　　r1 = 2 ' r1=始まりの行

　　While Cells(r1, 2) <> ""　　' 最後ならプログラム終わり
　　　　If Cells(r1 + 1, 2) = "" Then ' 区切りを見つける
　　　　　　r2 = r1 ' r2=終わりの行
　　　　Else
　　　　　　r2 = Cells(r1, 2).End(xlDown).Row
　　　　End If

　　　　Open n & ".txt" For Output As #1　　' ファイルに書き込む
　　　　For i = r1 To r2
　　　　　　Print #1, Cells(i, 2)
　　　　Next
　　　　Close #1

　　　　n = n + 1　　' 次のファイル番号
　　　　r1 = r2 + 2　　' 次の先頭
　　Wend
End Sub

>>246
遅くに作成いただきましてありがとうございました！
早速試してみました。出来たーーー！
手動で大量に保存していたので、本当に助かります。
明日から・・・じゃない今日からの作業が楽しみです。
またの機会がありましたら何卒宜しくお願いいたします。

まだ一日経っていないのですが、お力いただけないでしょうか。

昨日と似たもので、エクセルで2007で。

<1>
M列に数字のデータが昇順に並んでいます。M2からがデータです。
そのM列で同じ数字の列までのB2からのデータをデスクトップに
1.txt、2.txt・・・と保存したいのですが。

たとえばM2〜M4までの数字が同じなら、B2〜B4までのデータを
デスクトップに順番に保存するというものです。
B列は半角数字とアルファベットでデスクトップはC:\Users\admin\Desktop\
です。

<2>
そして、>>248にもうひとつ条件を入れて作成が可能であれば・・・

M列と同じ数字の列数と同じB列のものを抜き出すのですが、
その時、Q列が全角のＲなら1R.txtで保存、全角のＬなら1L.txtなど、
同じM列の数字の中のものだとわかるような方法で保存したいのです。
（Q列は全角Ｒか全角Ｌのみとなっています）

たとえばM2〜M4までが同じ数字だが、Q2とQ4がＲ、Q3がＬなら
B2とB4のデータを1R.txt B3を1L.txtと保存し、
次のM5〜は上記と同様2R.txt・・・・・と保存していくものが希望です。

何卒よろしくお願いいたします。

少し自分で努力しろ。

>>249
>何卒よろしくお願いいたします。

嫌です

努力してみたのですが習得に時間がかかるようで。
不愉快にさせてしまい申し訳ありません。

別に不愉快にはなっていない。
果報は寝て待て。

>>249
俺が作成料2万円でやってやる
仕様の変更や追加は条件一つに付き3000円

> 努力してみたのですが習得に時間がかかるようで。
最初から努力などしてないくせに

切り貼り奮闘し>>248はなんとか出来ました。
せっぱつまっていたのでお願いしてみましたが、
>>249は出来ませんでしたので
ちまちま手作業で乗り切ろうと思います。

スレ汚しして申し訳ございませんでした。
>>246さん、本当にありがとうございました。

>>256
雰囲気こんな感じ。

For i = 2 To maxRow
　If Cells(i, 17).Value = "Ｒ" Then
　　rBuf = rBuf & Cells(i, 2).Value & vbCrLf
　Else
　　lBuf = lBuf & Cells(i, 2).Value & vbCrLf
　End If
Next

Open "1Ｒ.txt" For Output As #1
Print #1, rBuf
Close #1

Open "1Ｌ.txt" For Output As #1
Print #1, lBuf
Close #1

>>257
ありがとうございます。
何故か中身が空っぽで保存されていました。
自動保存から切り貼りしてなんとかやっているようなレベルなので
厳しいですが色々調べながら頑張ります。
本当にありがとう！

>>258
丁寧な言葉は使ってるけど、言いたいことは
>>257ご苦労さん、全く使えねぇコード書きやがって動かなきゃ意味ねえんだボケ！
ってところかｗ

>>259
うるせえな、ちょっと黙ってろ。

>>259
ん？俺はお前にレスした覚えはないが。
何かスイッチ押しちゃったｗ

>>249
でけーた。試してみて。
https://friendpaste.com/1MQf5hd3f08yQhMLmS32c

更年期のオッサンってキレやすいんだな

>>262　桃白白さま。
ありがとうございます！凄いです！魔法使いみたい。
何時間もかかっていたややこしい仕事が一瞬で済むなんて。

作っていただいたコード見てもさっぱりわからない自分が情けないです。
基本から勉強すべきなんだなと痛感しました。

自分で努力しろと助言くださった方々、まさしくその通りです。
みなさんに感謝の気持ちでいっぱいです。ありがとうございました。

毎日痛みと戦ってるからな

>>264
>作っていただいたコード見てもさっぱりわからない自分が情けないです。
この時点でお前のために書いてないと気づけよｗ

生理痛？

桃白白

　↑なんてよむにょ？

オッサンと読めば良いよ

ググレカス、というか、
ドラゴンボールはすでにオッサン世代しか知らんのか

ピーチダブルホワイト

>>262
先日はありがとうございました！

もうひとつ、質問させてください。

>>262で保存したものを開くと、
カーソルがデータの最初にある状態で保存されていました。
カーソルをファイルの末尾へ移動して保存する場合、
どういう構文をどこに足せばいいのでしょうか・・・
色々調べてみましたが自力では無理でした。
申し訳ありませんがよろしくお願いします。

>>272
カーソルをB列の最後のデータに移動
Cells(Rows.Count, 2).End(xlUp).Select

>>273
早速ありがとうございます。
何行目に足せばいいのでしょうか・・・

好きな所に足しなさい

カツカレーが好きなんですけど、この上に足していいですか？

抜き出したテキストファイルをプログラムで読み込もうとしたのですが、
読み込めず、開いて末尾にカーソル持っていって、
DELキー何度も連打して上書き保存したら、読み込めたんです。
ってことは、元のB列のデータになにかわからない空白がある？
空っぽの頭で考えたのですが、さっぱりわからなくって。

とりあえず出社してから再度悩んでみます。スレ汚しすみませんでした。
明日のランチはカツカレーに決定。おやすみなさい。

一体何人の分身がいるんだコイツ？

ＶＢＡの文法VB.netに統一されるといいのになぁ。

>>279
下衆の勘ぐり？

>>272 です。
不慣れで何をどう説明したらいいのかすらわからず、
グダグダになってすみません。

>>262で桃白白さまに作っていただいたVBAの最後の部分、

Sub SaveLR_(filename, value)
Dim n As Long
n = FreeFile
Open filename For Output As #n
Print #n, value
Close n
End Sub

データを抽出し、ここでテキストに貼るように作っていただきましたが、
最後の改行だけを無くして保存する方法をお教えください。
よろしくお願いいたします。

>>282
パイパイのコードは知らんが Print # で改行無しなら
Print #n, value;

>>283
試したところ、空白が無くなって、いけそうです！
明日会社で試してみます。
今から戻って試したい位です。ありがとうございます。

すみません！教えてください、僕の頭ではｻﾊﾟｰﾘです。

マクロを実行するとDROPBOXの複数のフォルダに保存するマクロを作ったのですが
ユーザー名が１つ１つのパソコンで異なり他のPCでこのマクロを実行するとエラーがでます（当たり前ですが・・・）
マクロでユーザー名を取得することは可能でしょうか？

>>285
http://www.ken3.org/vba/backno/vba114.html

>>286
情報�dです。これではC:\Users\に入り込めませんでした。
他に何か方法はないでしょうか？

>>287
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
Debug.Print WshShell.SpecialFolders("MyDocuments")

>>288
レスありがとうございます。
Dropboxがマイドキュメントフォルダに入っていません。
rootは、C:\Users\ユーザー名\Dropboxになってます。
この場合でも、SpecialFoldersで指定は可能でしょうか？

>>289
フォルダを検索して、存在しなければフォルダを作るようなコード書けばいいんじゃね？

>>290
Dropbox自体が特殊で場所移動とかできないんですよねー。
なんか無理そうだな orz

>>291
Dropbox限定か。
なら、http://hardsoft.at.webry.info/201111/article_4.html をVBAに書き換えろ。
「dropbox フォルダ 場所 取得」でググったら一番上だ。検索時間1分。

ちなみに、dropboxはドキュメントフォルダの場所を変更できるからな。

>>292
>********をVBAに書き換えろ。
WScript.Shellも理解できない人にそんなこと言ったって・・・・・・・・・w

>>294
ほら、全コード書いちゃうと荒れるじゃん

>>295
http://hardsoft.at.webry.info/201111/article_4.html
を見て何とかなるスキルがあるなら >>289のような質問自体が生じないってこと。
>>288 に対して >>289の再質問を見ると
SpecialFolders("MyDocuments")が何を返すのかを調べもしていない
= 意味不明でもコピペするだけで動くコードがほしい ということでしょう。

[C:\Users\<ユーザー名>\Dropbox]決め打ちで良いのならこの文字列を取得
する方法は上記以外にもいくつもあるよね。
自分ならExpandEnvironmentStringsで%USERPROFILE%を取得とか
WScript.Network UserName で<ユーザー名>を取得することを検討するな。

>>296
Dropboxのパス取得が目的なら、それでは不十分。

>>291
> Dropbox自体が特殊で場所移動とかできないんですよねー。
これはいくら何でもひどい

>>297
でしょうね
自分がDropboxを使っていないのとUPするとき長くなるので以下の文章を抜いちゃったんだ

「Dropboxは使っていないので無責任になるが上記URLにDropboxの場所がデフォルトの場合
C:\Users\<ユーザー名>\Dropboxになる。また >>293 ・・・場所を変更できるからな。
とあるので対象PCはすべてデフォルトということを元>>285は検証しているのだろうか。
>>291 Dropbox自体が特殊で場所移動とかできないんですよねー。
とあるが 特殊なDropboxなのだろうか？それとも移動可能ということを知らないだけなのだろうか？」

もしユーザーが簡単にC:\Users\<ユーザー名>\Dropboxの場所を変更できるのならだれか
元>>285に引導を渡してやってくれ。

>>299
よくある普通の設定ダイアログで、普通に変えられるよ。

WSH.SpecialFolders("Desktop") の結果から"デスクトップ"と"Dropbox"をReplaceして一旦パスを整えて
FileSystemObjectのFolderExistsでフォルダがあるかチェックして
フォルダが無ければ終了するかフォルダピッカー出して選択してもらう

そんなにPerlが読めない人たちにばかりなの？
Dropboxフォルダが書かれてるファイルがあるから、オープンして内容読んでデコードするだけじゃん。

>>302
どこのどれ？

Dropboxの仕様とか明らかにスレ違いなんでどっか適切なとこ探して移動して下さい

>>303
>>292のリンク先に正解のPerlコードがある

>>292
パールをVBAへ変換できるPG探してみます。

>>293
本当ですね orz 場所移動できました。すみません。

>>294
頑張ります！>>296

>>296
自分ならExpandEnvironmentStringsで%USERPROFILE%を取得とか
WScript.Network UserName で<ユーザー名>を取得することを検討するな。

ここらへんググってみます。

>>298
バカですみません。

>>300
助かりました！

Function GetDropboxPath() As String
　　Dim path As String
　　Dim wsh As Variant
　　Set wsh = CreateObject("Wscript.Shell")
　　path = wsh.SpecialFolders("AppData") & "\DropBox\host.db"

　　Dim fn As Long
　　Dim buf As String
　　fn = FreeFile
　　Open path For Input As #fn
　　Do Until EOF(fn)
　　　　Line Input #fn, buf
　　Loop
　　Close #fn

　　Dim ary As Variant
　　ary = Split(buf, vbLf)

　　GetDropboxPath = StrConv(decodeBase64(ary(1)), vbUnicode)
End Sub

decodeBase64は、ここのコードをコピペで。
http://www.gizcollabo.jp/vbtomo/log/archive/vbqanda_4318_2.html

>>307
添削。
Function GetDropboxPath() As String
　　Dim path As String
　　Dim wsh As Variant
　　Set wsh = CreateObject("Wscript.Shell")
　　path = wsh.SpecialFolders("AppData") & "\DropBox\host.db"
　　If Dir(path) = "" Then Exit Function

　　Dim fn As Long
　　Dim buf As String
　　fn = FreeFile
　　Open path For Input As #fn
　　Line Input #fn, buf
　　Close #fn

　　Dim ary As Variant
　　ary = Split(buf, vbLf)

　　GetDropboxPath = StrConv(decodeBase64(ary(1)), vbUnicode)
End Function

バールのようなもの

そのファイルの改行コードがどうなってるのかしらんが
Line Input ってLFのみだと改行コードだとみなさないんだっけ？

>>310
「そのファイル」はLFで改行された二行固定（すくなくとも今現在は）。
Line InputはLFを認識しない。

>>308
大変助かりました。ありがとうございました。
仕組みがまったく理解できませんが、理解できるように勉強したいと思います。

あー、これ見ても理解できないんだったら、そもそも書けるわけ無かったね。
別に貶めてるとかそういうことじゃないんだけど。

>>313
うぜーやつ

いっそのことコード作成依頼OK、丸投げ歓迎ってテンプレ入れて、このスレをそんなスレに
するってのはどう？
本スレでも、コード書きたくてウズウズしてる人いるみたいだし。
それとも、そんな性質のスレほかにもうある?

何度もすみませんヒントだけでもいいので教えて下さい。
>>308さんのVBAをcallで読みだしてCommandで保存できるようにしました。
この時saveを使えば開いてる場所に保存されるのですが、saveasメソッドを使用して指定するとアクセスできませんエラーがでてしまいます。
助けてください orz

>>316
エラーになるというコードを晒せ。

>>315
>>1にはコード作成依頼はダメとか、丸投げダメとは一切書いていない。
「VBAを使った質問ならなんでもござれ」なんだから何でもいいんじゃないの？

>>318
にほんご　むずかしい　です　よくわからない
「作成依頼」と「質問」はおなじことなんでしょうか

>>319
たとえば、相談に乗って欲しいと男を家に誘い込み、
省エネのためといって電気を消し、じつは・・・むぎゅと
いう行動に出た場合、相談とせっくすは完全に同じことであると
いうことになると思いますので、作成依頼は質問であるということで
いいのではないでしょうか。

こんな感じです！バカですみません！！

>>317
Sub CommandButton()
Call GetDropboxPath >>308さんのこれでドロップボックスの保存先呼び出すと解釈しました
'ActiveWorkbook.SaveAs　これなら何故か上手くいく。
ActiveWorkbook.SaveAs "\新しいフォルダ\練習.xlsm"　←なので直下のこれを指定したのですが・・・
End Sub

>>321
Functionは値を返す関数で、変数に代入したり式の中で使ったりする。
Call myFunction()
だと、戻った値が後で使えない。

Sub CommandButton()
　ActiveWorkbook.SaveAs GetDropboxPath() & "\練習.xlsm"
End Sub
とやれば、保存できる。

ファイル保存ダイアログを出したかったり、存在しないフォルダを新規作成してその中に保存したい場合とかは、
さらに別のコードが必要。

これからも、VBAで何かを作っていこうと思うのなら、何かVBAの入門書を読んだ方がいいよ。

>>322
レスありがとうございます。
参考に弄ってみます。
何かおすすめの書籍などありましたら教えて頂けませせんか？
質問ばかりですみません。

大きな本屋に行って何冊か自分で立ち読みして調べるぐらいのことはしてよ

Outlookのvbaに関する質問大丈夫ですか？

OUTです

何処でしたらいいですか？

適したスレで

テキストファイルを指定して直接開きたいのですがどうしたらいいでしょうか？
shell関数はexeのみですよね？

>>329
With CreateObject("Wscript.Shell")
　　.Run "C:\hoge.txt", 5
End With

まさかOUTLOOKだけにOUTだす、っていうダジャレですか
このクソオヤジがぁ？

ごちゃごちゃ言わずにその疑問を書けばいい。だれか判る人間が答えるだろ（俺は知らんw

エクセルとアクセスのVBAをマニュアルページとか見ながらだけど
理解できてて、アクセスからデータを引っ張ってきて、エクセルに貼り付けて
そこで表計算させたり、条件にまとめて貼り付けたりとかできるんだけど。

それでこういうのを仕事にできるアルバイトしたいとおもって探してて
ネット上では、1500円とか結構高い時給でそれっぽいのの応募があったりするんだけど
そういうバイトしたことある人っています？実際どれぐらいのスキルを
求められるんだろう？

>>333
電話して聞けば？

>>334
ざっと探すとネットでのみ応募で電話番号がわからないところしか
見つからないんですよね。ネットで中核求人サイトを媒介にして応募して
応募した会社からの連絡待ちみたいな。

>>335
そのスキルじゃ、20代女子じゃないと難しいかと。

>>336
ああ、やったことあるんすか？20代女子かぁ。うーむ。男女差別って気がして
しまうなぁ。

>>337
いや、無いけど>>333読む限りVBAをがっつりやるにはスキル足りなさすぎ。

>>338
なるほど、もっとスキルがあれば、できるかもですな。
実際に働いたことある人の意見がききたいですが。
なかなかそういう人もいないもんなんでしょうかねぇ。

やればなんとかなるさ

エクセルのみ使ったデータ入力の仕事ならあるだろうけど、時給1500円は無いだろう
アクセスを使う仕事はデータ入力のみか、DBの設計開発かで必要なスキルが段違いになるが、333には無理だろう
業務で使うVBA開発を前提とした仕事なら、初心者に毛が生えた程度の333では相手にされないだろう

>>341

>アクセスを使う仕事はデータ入力のみか、DBの設計開発か
DBの設計開発って具体的にいうと、アクセスでテーブルを作って
用途に応じたクエリを作成する。ぐらいまでのことですか？

例えば、都道府県の各市町村で、「田」のつく名称を都道府県ごとに検出して
さらに「田」のつく市町村名の割合などを算出する。
これらをSqlとVBAを併用してエクセルに記述できたら、設計開発っていえます？

>業務で使うVBA開発
必要な用途に応じて、エクセルの中にフォームを作ったりボタンを作ってそのフォームや
ボタンを押すと必要な動作が行われる、ぐらいまでのことが注文されると作れると
VBA開発って感じになります？

そういう程度では即戦力として雇って貰える所は無いだろな

なるほどねぇ。これ以上だと具体的にどういうレベルなのか。
求人はあるみたいだけど、実際に働いた人の話も聞かないしなぁ。

まぁ、バイトならいつでも辞めれるし、辞めさせられるし、飛び込むだけ
飛び込んでみるのもいいかもですが。

今の職場でエクセルのマクロとテキストエディタ(正規表現込み)を独学で覚えて
作業効率を大幅に向上させてきたけど時給900円のままのワープア派遣Orz

>>344
会社側が求めている人材なんてその会社毎に違うんだから
その会社に問い合わせないとわかんないな
あーだこーだ言ってないで成果物を見せればちゃんと判断してくれるよ

>>345 時給制なのになんでそんなことするんだよｗあほｗｗｗ

Excel VBA 質問スレから誘導されて来ました。
苦戦しているので、どうかお願い致します。
スペックはＸＰでExcelは2003です。

現在B1セルに○月1日と日付を入れ、シート名を1日としたものがあります。
これを自動で複製して、B1セル日付を○月2日 ○月3日…
シート名を2日 3日…となるように、一ヶ月分のbookを作りたいと思っています。
また、その際に、B1セルとシート名の日付が日曜・祭日に当たる場合、
シート名に色を付けたいのですが、肝心のコードが全く分かりません。
（因みにB1セルの日付はシリアル値で入れていて、
書式で○月○日と表示していて、日付が日曜・祭日に当たる場合は
赤文字になるよう、別シートに祝日リストも作って
条件付き書式で設定してあります。）

一応ウェブを漁って、それらしいコードを拾って動かしてはみたのですが
いまひとつ、作りたいものがうまく作れないので
こちらで教えていただけないでしょうか。
どうかよろしくお願いいたします。

shrs

>>342
「テーブルを作って」を軽く見てるように思えるけど。そこがデータベースの設計の一番重要な所じゃね？

>>業務で使うＶＢＡ開発
たとえば、事務所の女の子が勝手にそれらのフォーム作ってちょっと便利なことしてたら、すげーそんなこと
できるんだ！って褒められてちょっと大事に扱ってくれるんじゃね？ってレベルのスキルだと思うよ。

>>348
お前が何がわからないのかわからない
（プログラムで）しなければいけない事を細かく分けて考えて
何がわからないのか特定して、そのわからない事を書け

>>342
素人がどんなに上手く料理を作れてもプロの料理人にはなれないのと一緒、やってる仕事の性質が違う

>>351
レスありがとうございます。
＞お前が何がわからないのかわからない

仕事で関数を使ったExcelシートを作る程度で
マクロやVBAなどの知識が全くないので
VBAそのものが全く分かりません。
なのでそれらしいコードをwebで拾ってきて使ってみたのですが
思っているものが作れなくて苦戦しています。

なんでお前ら若い芽を摘むのにそんなに必死なの？

>>348
B1をシリアル値で持っていると言うことは年の情報も持っていると言うことだよね？
なら、その月の1日から、翌月の1日から1日引いた日数分だけ
シートをコピーしてB1の値だけインクリメントしていく。
あとはB1セルの内容をフォーマットで変えてやって、シート名として設定して、
対象シートのB1セルと休日シートを照らし合わせて休日なら
シートを赤くすれば良いだけだと思うんだけど、ここまではいい？

いじわる多いのぅｗｗ

>>348
基礎を学んでないならコードの流用は不可能。
今現在の目的を果たすだけが目的なら丸投げして作ってもらう方がいいわな。
勉強が目的なら、いったん今の目的はあきらめて基礎から勉強したほうがいい。

>>348
Excel VBA の話題なのになんでここに誘導されて来るんだよｗ

マクロの記録でシートを複製して出力されるコードに手を加えてみたら？
それが無理なら丸投げするしか無理だと思う
今のブックをどっかにアップしてみたら暇な誰かが作って再アップしてくれると思うよ

みんなVBA程度に大袈裟だなぁ

>>355
すみません、分かりません…

>>356
はい、基礎を全く学んでいないので
webに落ちているコードを拾ってきて
貼り付ける程度の事しか出来ません…

なので丸投げで作って頂けたらとても助かるのですが
やはりここでは無理でしょうか…
今現在、作りたいbookが出来上がればそれで十分なのですが。
どうかよろしくお願いします。

>>359
ちょっとまってて。桃白白いまがんばってるから。

>>357
あっちはこの手の質問投下すると例外無く荒れるw

>>348
問題点1：シート名「1日」の複製　−＞マクロの記録でコードが取得出来ます。
問題点2：変更するシート名を2日 3日にするには、DAYを使い、日付の数値だけ抽出します。
　　　　　（マクロでC1セルに　=DAY(B1)　を登録して、そのコードを見てください。）
　　　　　抽出した日付に１足して、文字列変換し、”日”を結合します。その後シート名の変更をします。
問題点3：シート名の変更方法　−＞　　マクロの記録で・・。
問題点4：シート名の日付が日曜・祭日かの判定は出来ていて、「赤文字」にしてる様なので、
　　　　　そのセルの色で　if分を使って赤文字かどうかの判定を行い、赤文字ならシートの色を変更します。
　　　　　（色の数値は、Cells(セル番地).Font.Color　で調べられます。）
問題点5：シート名に色を付けたい　−＞　マクロの記録で・・
問題点6：質問者の疑問には無いが、うるう年の処理（2月が何日までか）。
　　　　　計算でも出来ますが、現レベルでは別シートに１〜１２月の日数表を作成した方が良いかと思います。
　　　　　参考URL：http://www.liveway.net/technic/20090625_111050.html　の「lastDay」変数が最終日
　　　　　参考　EXCELで、ある日は祝日（祝日、国民の休日、振替休日等）かを取得する関数
　　　　　　　　URL：http://www.excelio.biz/LABORATORY/EXCEL_CALENDER.html
「マクロの記録」が判らないようでしたら、ネットで検索してください。
.
ＶＢＡの構文等は　http://excelvba.pc-users.net/　の様なサイトが沢山あります、それらを参考にして下さい
.
そして、どこが判らないのか、どこが思った通りにならないのかを、明確に質問してもらうと的確な解答が得られます。
。
>>357
Excel VBAスレには、嵐がいて、枝の話も幹で質問しろと嘘の誘導をしているので、>>348はある意味では被害者。

うわあ

・・・うわあ

とりあえず、シートコピーするとこまで作ってやった
Sub シートコピー()
Dim dt As Date
Dim lastday As Integer
Dim i As Integer
Dim sh As Worksheet
dt = Sheets("1日").Range("B1").Value
lastday = Day(DateAdd("M", 1, dt) - 1)
For i = 2 To lastday
Set sh = Worksheets.Add(, Worksheets(i - 1))
sh.Name = CStr(i) & "日"
sh.Range("B1").Value = dt + i - 1
sh.Range("B1").NumberFormatLocal = "m月d日"
'シート見出しの色変える処理
Next
End Sub
色変えるのは、休日定義してるシートの詳細だせ
内容を理解するまで次の質問は禁止な

>>359
動きますかしら。
https://friendpaste.com/28NRpEPxYtMlJqM42y0pNW

休日判定はシートを参照したほうがいいのだけれども、どのセルに入ってるのかわからないので
とりあえずやっつけで。祝日リストのシート名と範囲と書式を教えてもらえる？

こっちも全部作った。ただ、入りきらないから分割するよ。その1

Sub main()

Dim firstDay As Date
Dim lastDay As Date
Dim targetDay As Date
On Error GoTo Error_Handler

'月初日を取得
firstDay = Range("B1").Value
'月末日を取得
lastDay = DateSerial(Year(firstDay), Month(firstDay) + 1, 0)

With ThisWorkbook

'月初日のシートは既に存在しているので、
'先にシート名とシート色を設定してしまう。
Sheet1.Name = Format(.Sheets(Sheet1.Name).Range("B1").Value, "m月d日")
If .Sheets("休日").Cells.Find(firstDay, LookAt:=xlWhole) Is Not Nothing Then
.Sheet1.Tab.Color = 255
End If

その2

'ひと月分のシートをコピーし、
'シート名、シート色の設定を行う。
For targetDay = lastDay To firstDay + 1 Step -1
.Sheets(Sheet1.Name).Copy After:=Sheets(1)
.ActiveSheet.Range("B1").Value = targetDay
.ActiveSheet.Name = Format(ActiveSheet.Range("B1").Value, "m月d日")
If .Sheets("休日").Cells.Find(targetDay, LookAt:=xlWhole) Is Not Nothing Then
.ActiveSheet.Tab.Color = 255
End If
Next

End With

Exit Sub

Error_Handler:

'例外時はエラー内容を表示する。
MsgBox Err

その3

End Sub

休日シート名は「休日」固定で。
違うなら"休日"の部分だけ変えてちょ。

質問させていただいた>>348です。
みなさま、本当に色々とありがとうございます。
早速試させていただいたのですが

>>364
原本の1日のシートと数式を組んであったデータが消え、
日付だけが入った空のシートが複製されてしました…

>>365
「型が一致しません」と出てしまいます…

>>364
「オブジェクトが不正です」と出てしまいました…

なにがいけないんでしょうか、すみません…

>>345
かんたん Visual Basic、高橋広樹、2010、技術評論社

ちょっと古いかも知れないが、この本を読んでから決めたら？
1週間で読める入門書
もちろん本屋で、より簡単な、新しい本を探すのもいい

>>348
まず、対象月の日数を、知る必要がある
28、29、30、31日？
そして、その日数分だけ、シートを作る

済まんかった。今、家で打ち込み直したからもう一度確認して。
その１
Sub main()

Dim firstDay As Date
Dim lastDay As Date
Dim targetDay As Date
On Error GoTo Error_Handler

'月初日を取得
firstDay = Range("B1").Value
'月末日を取得
lastDay = DateSerial(Year(firstDay), Month(firstDay) + 1, 0)

With ThisWorkbook

'月初日のシートは既に存在しているので、
'先にシート名とシート色を設定してしまう。
.Sheets(Sheet1.Name).Name = Format(.Sheets(Sheet1.Name).Range("B1").Value, "m月d日")
If Not .Sheets("休日").Cells.Find(firstDay, LookAt:=xlWhole) Is Nothing Then
.Sheets(Sheet1.Name).Tab.ColorIndex = 3
End If

その2
'ひと月分のシートをコピーし、
'シート名、シート色の設定を行う。
For targetDay = lastDay To firstDay + 1 Step -1
.Sheets(Sheet1.Name).Copy After:=Sheets(1)
.ActiveSheet.Tab.ColorIndex = xlNone
.ActiveSheet.Range("B1").Value = targetDay
.ActiveSheet.Name = Format(ActiveSheet.Range("B1").Value, "d日")
If Not .Sheets("休日").Cells.Find(targetDay, LookAt:=xlWhole) Is Nothing Then
.ActiveSheet.Tab.ColorIndex = 3
End If
Next

End With

Exit Sub

Error_Handler:

'例外時はエラー内容を表示する。
MsgBox Error

End Sub

度々すまん。
その1の
.Sheets(Sheet1.Name).Name = Format(.Sheets(Sheet1.Name).Range("B1").Value, "m月d日")
の行の"m月d日"のm月はいらないな。"d日"にしといて。

>>373
いえ、こちらこそ何度もありがとうございます。
今、新しい方を使わせていただいたのですが
今度は「インデックスが有効範囲にありません」と出てしまいました。

>>368で言われたとおり、祝日リストのシート名を「休日」にしてあるのですが
複製もとの原本である「1日」のシート名も変えるのでしょうか？

>>374
そうだね。必要ないね。その1の
.Sheets(Sheet1.Name).Name = Format(.Sheets(Sheet1.Name).Range("B1").Value, "m月d日")
の部分を取っ払えばいい。

こちらでは動いているんだけどなぁ・・・
可能性として考えられるのは1日目のシートオブジェクト名がSheet1でないことかな。
トレースでどの行でエラーが発生しているのか教えてくれれば想定付けられるんだけど・・・

>>369
ああ、すまん。ホントにシートコピーしないとだめなのか
Set sh = Worksheets.Add(, Worksheets(i - 1))
の１行を
Worksheets("1日").Copy , Worksheets(Worksheets("1日").Index + i - 2)
Set sh = Worksheets(Worksheets("1日").Index + i - 1)
の２行にさしかえればとりあえず動くはず

あとコピーなら
sh.Range("B1").NumberFormatLocal = "m月d日"
の行もいらんかも

う、動いたよママン…

>>348です。
みなさま本当にありがとうございます。

とりあえず>>371さんのコードで.
Sheets(Sheet1.Name).Name のところを
.Sheets("1日").Name に変えてみたら、無事動かす事が出来ました。
ただ、ひとつだけうまくいかなかったのが
シート名の日曜の色付けが出来ませんでした。
祝日の方は、ちゃんと色付け出来てるのですが。

弄るとしたら、どこら辺を弄れば
日曜に当たるシート名を赤くする事が出来るんでしょうか。

度々すみません、>>348です。

拾ってきたコードなのですが
Select Case Weekday(ActiveSheet.Range("B1").Value)
Case 1
ActiveSheet.Tab.ColorIndex = 3
Case Else
ActiveSheet.Tab.ColorIndex = xlNone
End Select
これを足してみたら、日曜に該当するシート名も
色付けする事が出来ました。
色々と教えてくださり本当に助かりました、ありがとうございました。

>>378
ああ、祝日シートって言う位で、休日は設定されていないのね。
ならバグ対応も含めて、以下のものを使用して下さい。

その１
Sub main()

Dim firstDay As Date
Dim lastDay As Date
Dim targetDay As Date
On Error GoTo Error_Handler

With ThisWorkbook

'月初日を取得
firstDay = .Sheets(Sheet1.Name).Range("B1").Value
'月末日を取得
lastDay = DateSerial(Year(firstDay), Month(firstDay) + 1, 0)

'月初日のシートは既に存在しているので、
'先にシート名とシート色を設定してしまう。
'.Sheets(Sheet1.Name).Name = Format(.Sheets(Sheet1.Name).Range("B1").Value, "m月d日")
If Not .Sheets("休日").Cells.Find(firstDay, LookAt:=xlWhole) Is Nothing Or _
Weekday(firstDay) = vbSunday Then
.Sheets(Sheet1.Name).Tab.ColorIndex = 3
End If

その2

'ひと月分のシートをコピーし、
'シート名、シート色の設定を行う。
For targetDay = lastDay To firstDay + 1 Step -1
.Sheets(Sheet1.Name).Copy After:=Sheets(1)
.ActiveSheet.Tab.ColorIndex = xlNone
.ActiveSheet.Range("B1").Value = targetDay
.ActiveSheet.Name = Format(ActiveSheet.Range("B1").Value, "d日")
If Not .Sheets("休日").Cells.Find(targetDay, LookAt:=xlWhole) Is Nothing Or _
Weekday(targetDay) = vbSunday Then
.ActiveSheet.Tab.ColorIndex = 3
End If
Next

End With

Exit Sub

Error_Handler:

'例外時はエラー内容を表示する。
MsgBox Error

End Sub

修正したのは、日曜日の時シートのタブを赤くするのの他に、
実行時に月初のシートが選択されていなくても
ちゃんと動くようにしました。

なんかボロボロだな・・・

ActiveSheetか

>>383
ああ、実行中に手操作で何かシートが選択された場合、
動作がおかしくなるよってことを言ってる？
なら、
On Error GoTo Error_Handlerの行の下に
Application.ScreenUpdating = Falseを、
End Withの行と、
Error_Handler:の行の下に、
Application.ScreenUpdating = Trueを
付け足しておけばいい。
画面更新がなくなるから、その方が処理も早くなるし。

>>384
それしか思い付かないのはまずくね？

ActiveSheetをやめる
簡単なことだ

えー、でもこうしておけば変な挙動もしないし、ループも一回で済むし。
何で駄目なの？

本人が満足してるならそれでいいんじゃない？

あれだろ、シートを変数に突っ込んで使えば
Activeなシートを使うみたいに他からの影響を受けないって奴だろ。
別に動作が保証されてるんならどっちでもいいよ。
むしろそういう方法でなければいけないと言う奴は
.NetフレームワークとかからExcelオブジェクトをクリエイトした時、同じ処理を.Net側からやらせたい時
どういうコードを組むのかが見もの。

はぁ、だめだこりゃ。

白桃以下のが出てきたｗ

>>389
.NETから呼ぶと何か変わるの？

ピラフがやれ

ピラフは生理中だからだめだ

食べ物がどうして生理になるんだよ

すみませんが、excel2007で次のマクロ普通に動いていたのが
nextでエラーになってしまいます。
ネットで拾ったもので自分ではさっぱりわかりません。。
誰か助けていただけますでしょうか？
大量のシートの不要行に"1"を立てて非表示化させるマクロです。


Sub macro1()
On Error Resume Next
Dim w As Worksheet
For Each w In Worksheets
w.AutoFilterMode = False
w.Range("Am:Am").AutoFilter field:=1, Criteria1:="<>1"
Next
End Sub

>>396
ハード-ディスクの内容がすべて消去される可能性のあるコードを実行する気があるのかな？
全くコードを知らないというのはそういうリスクを背負ってることも理解する必要はある。

>>396
せめて、どういうエラーがでたかぐらい書け
つか、On Error Resume Nextでエラーでるか？

>>398
On Error Resume Nextはエラー無視の暴走モードですよね？
これで動いてたんですが。。

コードの実行が中断されました　というダイアログがでて、
デバックを押すとnextが黄色になっています。

継続を押すと次のシートの処理に移行し非表示は実行されますが、
100シート以上あって繰り返し実行するにはちょっと。。

エラートラップの設定次第でエラー出るよ

>>399
こっちじゃ再現しないからわからんけど
コードの実行が中断されました
でググるとなんか情報あるね

>>401
ググってみます
パッと見たところこれという解決策が。。
って感じみたいです。

もちょっと見てます

>>399
再現しないな
中断されたあと、継続押したらまたNextで止まるのか？
Breakキーの上になんか乗ってないか

みなさん　ありがとうございます。
ググってたらＰＣの問題かもと思い、
念のため別のＰＣに移したらエラー出ず無事実行出来ました。

なんかＰＣにごみが出来ちゃったのかしら。。

コードの問題じゃないことがわかりまして、
みなさん大変お騒がせしてすみっませんでした。

数か月ぶりにここ見るようになったんだが、桃白白はわかるんだがピラフがどういうキャラか意味わからん。。

知る必要があるのかね

生理キャラだろ？

VBAでIEの操作を試みています。
以下のようなコードができたのですが、IEウィンドウが複数開いているとうまくいきません。
最も最新に開いたウィンドウに対して以下の操作を行いたいのですが、
ヒントでもいいので教えてください。
一応ググってはみましたが、自分の書いたコードにはうまく組み込めず困っています。


Dim IE
Dim Word As String
Word = "****"

With CreateObject("Shell.Application")
For Each IE .Windows
On Error Resume Next
If TypeName(IE.Document) = "HTMLDocument" Then
On Error GoTo 0
IE.Document .all . Item("ID") .Value = Word
Application .Wait (Now + TimeValue("0:00:03"))
Exit Sub
End If
Next
End With

End Sub

せめてどう上手く行かないのかぐらい書け

>>408
タイトルとかURLとかで特定した方がいいんじゃない？

開くたびにURLが変わるページでして、
手動でそのページを開いてから、以下のような感じで一番後ろのIEと決め付ける方法で捕捉しようとしているのですが・・・

Dim IE
Dim NewIE
Dim Word As String
Word = "****"

Set IE = CreateObject("Shell.Application")
Set NewIE = IE.Windows(IE.Windows.Count - 1)
For Each NewIE .Windows
On Error Resume Next

If TypeName(NewIE.Document) = "HTMLDocument" Then
On Error GoTo 0
NewIE.Document .all . Item("ID") .Value = Word
Application .Wait (Now + TimeValue("0:00:03"))
Exit Sub
End If
Next
End With

End Sub

>>411
URLが変わるったって、ホスト名とかパスは変わらないんじゃないの？

というかよく見たら構文からダメなコードなのね

Shell.Applicationの順番って必ずウィンドウを開いた順になるのかな？
もしそうならFor Eachで最後まで回せば取れるけど
確実じゃない気がするからやっぱりURLとかで特定したいところ

Set IE = CreateObject("Shell.Application")
For Each w In IE.Windows
If TypeName(w.Document) = "HTMLDocument" Then Set NewIE = w
Next

プロセスの起動日時が一番若いものでいいのでは？

ExcelのVBAでいろんなExcelファイルから抽出・加工・編集した複数の表データなどを
Wordに貼り付けるというマクロを組みたいです。

もちろん表の大きさに応じて、Wordの何ページ目のどこに貼るかというのもVBAでコードを組んで自動処理したいです。

そのために「覚えるべきこと」は何ですか？
この目的に沿う「本」や「Web解説サイト」はどこですか？

>>415
>そのために「覚えるべきこと」は何ですか？

礼儀作法

次は？

ある程度はVBAが使えるってのを前提条件に

オフィスの達人〈5〉VBA活用術―Excel/Word/Access/PowerPoint/Outlook Office 2003対応 (オフィスの達人 (5)) [単行本]
http://www.amazon.co.jp/%E3%82%AA%E3%83%95%E3%82%A3%E3%82%B9%E3%81%AE%E9%81%94%E4%BA%BA%E3%80%885%E3%80%89VBA%E6%B4%BB%E7%94%A8%E8%A1%93%E2%80%95Excel-Access-PowerPoint-Outlook-%E3%82%AA%E3%83%95%E3%82%A3%E3%82%B9%E3%81%AE%E9%81%94%E4%BA%BA/dp/4839916055

とかか

>>418
それは下で質問したけど、中古でも値段が高騰しすぎて困っています。
http://toro.2ch.net/test/read.cgi/tech/1376371376/323

もっと安い、あるいは最新の本はないですか？

>>419
値段が高騰するのは、その本に需要があるから
裏返せば、代わりになるような本がない

質問じゃなくてクレクレじゃないか

桃白白、出番だぞ

いや、ないものねだり でしょ

>>419
MSDNライブラリだと何が不足なの？

流れぶった切って質問すまん

outlookの送信確認マクロを組んでて、ネットで調べた所

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
For Each Mailto In Item.Recipients
CCList = CCList & Mailto.Address & vbCr
Next Mailto
MSGText = “題名：「” & Item.Subject & “」” & vbCr & “下記が送信予定アドレスです。”
& vbCr & CCList & “送信してもよろしいでしょうか？” & vbCr
If MsgBox(MSGText, vbExclamation + vbYesNo) = vbNo Then
Cancel = True
End If
End Sub

ってマクロで”送信相手のアドレス”と”件名”を表示させることは出来るんだが、

続き。

複数アカウントでメールを送信させてて、
「***@****というアドレスから送ります」
ってな感じの記述を加えたいんだ
上の記述から「Mailto.Address」を「Mailfrom.Address」に変えたらいけるかなー
と思ったんだが無理っぽい。

だれかわかる人いるかな？

>>424
発信者アドレスの偽装って事？
だとしたら、だれも答えないと思うよ。
なぜって、「オレオレ詐欺」以上に危険な「オレオレ　メール」に応用可能。

>>426
言い方が悪かった・・偽装でもなんでもないんだ。

複数アカウントを登録していて、
現状、Aアドレス、Bアドレスから送信することが出来る状態なんだ。
何も考えずに送信を押すとデフォルト（仮にAアドレス）のアカウントから送信してしまい、
送信する際に
「Aアドレスから送りますがよろしいですか？」
みたいなメッセージボックが出てくれたらいいな、と思ってるんだ

リファレンスとかで調べると”宛先””CC””BCC"の表示はできるっぽいけど”FROM”の表示については書かれて無くて・・・

>>427
「MailItem.SendUsingAccount」プロパティ　が使えそう、Outlook無いので検証出来ず。
『MailItem の送信に使用するアカウントを表す Account オブジェクトを設定します。値の取得および設定が可能です。』
だそうです。

>>425
せめてコードが何やってるか理解してから改変しようぜ
送信者のアドレス出すだけなら
If MsgBoxの前に、
MSGText = MSGText & "「" & Item.SenderEmailAddress & "というアドレスから送ります」"
を追加すれば行けるんじゃないかな

EXCELのVBAで質問があります。
シートに直接設定したコンボボックスについて、以下の処理をしたいです。
１．まず選択したセルの値によってコンボボックスの中身(リスト)を
変更する
２．次にコンボボックスでの選択をしたときに、その値を取得する方法
（１．で選択したセルの右セルに表示させたいのです）

どのイベントを使えばいいのか分からず、どうもうまく行きません。
何かヒントを頂けますか？

>>430
１．ワークシートのSelectionChangeイベント
２．コンボボックスのClickイベント

>>431
>>430は入力規則で作ったコンボボックス(ドロップダウンリスト）のような気がする。
そうだとしたら、イベント引っ掛けるならWorksheet -> Changeじゃね？
２.なんてあったっけ？

>>431-432
レスありがとうございます。

コンボボックスはリストボックスではなくActiveXコントロールを
設定しました。

>>434
ありがとうございました

VBAでファイル名を変更したいです。フォルダ・ファイル構成は下のような感じです。

[Folder01]
img001.jpg
img002.jpg
img003.jpg
img004.jpg
img005.jpg
・
・

[Folder02]
img001.jpg
img002.jpg
img003.jpg
img004.jpg
img005.jpg
・
・

[Folder03]
img001.jpg
img002.jpg
img003.jpg
img004.jpg
img005.jpg
・
・

[Folder04]
・
・

何がしたいかと言うと、各フォルダのファイル名のimgXXXが、001から始まっているのですが
これを前フォルダの最後のjpgファイルの番号の次の番号から、次のフォルダのjpgファイルの番号を始めたいのです。

フォルダとファイルはたくさんあります。(フォルダは50くらい、各フォルダにファイルは30くらい)

どういうコードを書けばいいですか？

ファイル名用のカウンタ変数を保持してそこからリネームすればいい。

>>438
なるほど、すばらしいですね！
ところでそれってどういうコードをかけばよいのでしょう？

ちなみにExcelのVBAの標準モジュールというところにコードは書きたいです

>>437
お前、Excel VBA 質問スレ Part31
で紹介したリンク先を見た上でいってるんだろうな？
そこを参照すれば出来るはずだろ？
それすらも理解できない？

>>441
出来ないから聞いておるのだ

>>みなさま
どなたかわかるかたはいらっしゃらないでしょうか？

>>442
素直にコードが欲しいと言えばいいのにwww

> 出来ないから聞いておるのだ
アホか
何様のつもりだよガキが

質問スレなのだから質問者様が一番偉いのである

>>445
それをやりたかったら回答料寄こせや
1レス1万でいいぞｗ

>>444
> 何様のつもりだよガキが

荒らさないでくれるかな。

>>447
> 出来ないから聞いておるのだ
これを吐いた時点でお前の居場所はない
今更話をそらして逃げようとしても遅い

>>436
擬似コードだとこんな感じ。再帰使えそう。

sub foo()
　folders = get_all_folders(path)
　folders.sort

　' 最初のフォルダの最終番号を取得する
　last_file_name = get_last_file_name(folders(i))
　last_number = parse_file_name(last_file_name)
　' 次のフォルダの開始番号を計算する
first_number = last_number + 1

　' 二個目以降のフォルダ内のファイルを全てリネーム
　for i = 1 to folders.size - 2
　first_number = rename_files(folders(i + 1), first_number)
　next
end sub

function rename_files(folder, first_number) as string
files = get_all_files_of_folder(folder)
files.sort

　current_number = first_number

　for i = 0 to files.size - 1
　　rename files(i), build_file_name(current_number)
　　current_number = current_number + 1
　next

　rename_files = current_number
end sub

間違えた。

誤：last_file_name = get_last_file_name(folders(i))
正：last_file_name = get_last_file_name(folders(folders.size - 1))

さらに間違えてた。

正： last_file_name = get_last_file_name(folders(0))

おちつけ

　 ＿＿_　　　ｶﾞｽｯ
　|＿＿_ミ　　　　　　ｷﾞﾋﾞｼｯ
　　 .||　　ヾ　ﾐ ､　　　　　 ｸﾞｼｬｯ
　　 ∩＿∧/ヾヽ　　　　　　　　
　　 | ,| ﾟ∀ﾟ）. .|　 |；,　 　　　　ｹﾞｼｯ
　　/ ⌒二⊃=| 　|∵．
　.O　　　ﾉ ％`ｰ‐'⊂⌒ヽ　　ｺﾞｼｮｯ
　　 )　） ）　)~￣￣(）__ 　 ）
　　ヽ,lヽ） （;;;;;;;;;;;;;;;;;）（＿（

>>449
ソートといったらバブルソート、バブルソートといったら桃白白、
桃白白はかわいい、ゆえに桃白白はかわいい。証明終了。

>>442
桃白白もやってみるのだ。ちょっと待っててくれればいいのだ。

また糞コードを叩く流れか
胸が熱くなるな

>>455
とーなりどーしあなたとあたしたおぱいぱーい♪

>>442
できたのだ。
https://friendpaste.com/3Tm2uY4MkIuhJLIGoaCK6D

Sub Sample1()
　　Folder = "C:\images"　' このパス以下を処理
　　Files = "img???.jpg"　' 処理するファイル名

　　ChDir Folder
　　Set WSH = CreateObject("WScript.Shell")
　　sCmd = """dir /s /b """"" & Files & """"" 2> nul | sort"""　' ファイルの一覧をソート
　　Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
　　Do While wExec.Status = 0　' コマンドの終了待ち
　　　　DoEvents
　　　　result = result & wExec.StdOut.Read(100)　' バッファあふれ対策
　　Loop
　　result = result & wExec.StdOut.ReadAll　' ソート済みの一覧を取得
　　D = Split(result, vbCrLf) ' 一覧を改行で区切って配列に

　　counter = 1　' ここから連番リネーム処理
　　For i = LBound(D) To UBound(D) - 1　' リストの末尾にも改行があるので1つ減らす
　　　　NewName = Left(D(i), Len(D(i)) - 7) & Format(counter, "000") & ".jpg"　' 超手抜き注意
　　　　Name D(i) As NewName
　　　　Debug.Print i, D(i), NewName　' 確認
　　　　counter = counter + 1
　　Next
End Sub

あ、ごめん
>>457は無し
書き込んだ瞬間に大きなバグに気付いた

後半だけ訂正

　　' ここから連番リネーム処理
　　For i = UBound(D) - 1 To LBound(D) Step -1　　' リストの末尾にも改行があるので1つ減らす
　　　　NewName = Left(D(i), Len(D(i)) - 7) & Format(i + 1, "000") & ".jpg" ' 超手抜き注意
　　　　Name D(i) As NewName
　　　　Debug.Print i, D(i), NewName　' 確認
　　Next
End Sub

>>456
○ num = 0
× num = 1

まちがえた

>>456
○ num = 1
× num = 0

間違いだらけの青春

>>456
各フォルダのThumbs.dbが巻き込まれて全部jpgにリネームされたんだけど

何で現場には、Option Explicitなしで、一部の変数は宣言せずに使ってる
糞コードがあまりにも多いのか。基本中の基本だろうが。

>>464
現場に進言すればいいじゃん。

お前の現場が糞現場なだけ

>>461
修正した。Σｄ(ﾟ∀ﾟ)ｸﾞｯｼﾞｮﾌﾞ!!

>>463
えーそれは困るよじゃあここをこう修正したらいいよとかそういう提案ある？
桃白白お耳傾けちゃう。

ありすぎて困る
一から書いた方が早い

>>468
困ることはないでしょう。その中からこれがベストだっていうのをひとつ選べばいいだけなんだから。
恋人選ぶのとはちがうんだよ。教えてよ。

取り敢えず桃白とピラフとか言う生理キャラとどっちかにして欲しい。
ベストだって言うキャラのを一つ選んで。

あー話逸らせちゃった。
まあほんとに書けるんだったらとっくに書いてなきゃおかしいわけで
できもしないくせに見栄張っちゃったってところかな。

これだけ煽れば桃白白に教えざるをえないよ。策士桃白白。

ってかさ、未だにトリップキー漏れてるトリをつける神経を疑うわな。
というより本人じゃないやつが成りすましてる可能性が非常に高い。
俺の知ってる桃白白はコードなんか書かなくて、もっと紳士な奴なんだが。
本人に失礼だからいい加減成りすましやめたら？

取り敢えず桃白白は尻の穴キャラ
ピラフは生理キャラでOK?

WORDマクロってここで良いのかな？
エクセルと違って少ないですよね

>>475
このスレは間口広いから大丈夫のはず

>>475
何がですか？

すみません、スレとかマクロのサンプルが少ないってことです
今、WORDファイルの結合マクロを作ろうと考えているのですが

1つ目のファイル(名前.dot)の内容
[001]　cat
[002]　dog
[003]　monkey

2つ目のファイル(b.dotx)の内容
(001)　ねこ
(002)　いぬ
(003)　さる

のようになっています
これを
[001] a.docx　cat
(001) b.dox　ねこ
[002] a.docx　dog
・・・
のように、ファイル名を付けて並び替えて1つのファイルにしたいのです
何かサンプルなどないでしょうか。
本物はもっと長文で、書式や校正履歴が有るために
エクセルでセルに張り付けてソートという方法が使えないのです
おねがいします

だが断る！

>>478
まず、何がわからないの？
ExcelのVBAは使える？

>>480
あまり使えないです
乱数発生してランダムにソート？とか
文字列の置換、取り出し（Left、Right、Mid）、変換（SｔｒConv）とかくらいならなんとか
C、C++とかは少しだけ出来たんですが（MFCはわからないのでWin32APIで）
なんだかVBって記号的というか関数名とか変な感じでよく読めないです

やろうとしたのは、まずファイルa.doxから
Selection.MoveEndUntil Cset:="[",
Count:=wdForward

みたいにして、[の前までを選択してファイルの一番上にコピペ
次はb.dox（の前までを選択してファイルの一番上にコピペ
これを交互に繰り返せば行けるのではないかと思ったのですが…

名前.dot
b.dotx
a.docx
b.dox

訳がわからん

おっと
a.dox
ってのも追加か

>>478
WordのVBAはあまり使わなかったが、下の様なフローで出来た、Word2007使用。
１：文書a.docxを開く、全文を変数に代入、文書a.docx閉じる、各行に分割し配列に記録
２：文書ｂ.docxを開く、同上
３：VBA入りの結合用ファイルをアクティブに
４：配列上で各行に分割
５：カッコの位置を工夫し、ファイル名を入れた物をWordに書き出し
６：Word上で、ソート
７：Word上で、各行のカッコの位置を戻す
WordのVBAは、慣れていないから難解。

書式と校正履歴はどこ行った

書式と校正履歴が必要なんだ、じゃだめだ。
あぁ勘違いでした。

WordのVBAだけでやると、校正履歴・書式も残る物が出来た、
Wordは変な癖が有るし、いゃ〜めんどくさい、WordのVBAなんかもう触りたくない。
でもいい勉強になった。

WordはVBAじゃなくてもよく分からないからな。
余り好きじゃない。

エクセル2003です。
コマンドボタンを直接エクセル画面に貼り付け➡コマンドボタンのプロシージャにプリントアウトのプログラムを記入➡コマンドボタンをクリック➡コマンドボタンが左側にかってに移動（プリントアウトは出来る）
コマンドボタンが左側に移動しない方法を教えて下さい。

>>489
普通の「→」を使わないのが気に障るから教えない

効いてる効いてるｗ

2003ってサポート終了するポンコツじゃん。
いまさらそんなの使えるようになっても食っていけないよ。

>>491
お前は早く普通の→を入力できるように頑張れよｗ

iPhoneからの入力だと
最初に出るね。➡︎。

Appleは、そういう独善的なところが嫌い。
そういうマシンに心酔するユーザも嫌い。

>>495
ピラフのことは？好き？

たまにキチガって暴れるから嫌い。

桃白を含めて好きって程でもないけど嫌いじゃない。
ひと波乱あった今のEXCELVBAスレなら書き込むと荒れるかもしれないけど意外に有難がられるかもしれない

荒らし投稿した時点で既に論外

助けてください！
Aセルの中に、東京都千代田区永田町１-７-１と入力されてます。
Aセルの中にある数字だけを抽出する事は可能でしょうか？（Bセルに１　Cセルに７　Dセル１）
可能であれば、マクロ組んでいただけませんか？

簡単過ぎて食指が動かないからやだ

>>500
Range("B1")=１
Range("C1")=７
Range("D1")=１

では難しくしましょう。
Aセルの中の数字は、3つだけとは限りません。
「東京都千代田区大便町１-２-３-１０１」みたいに4つのこともありますし、
0個のときも、1個のときも、2個のときも、5個以上のこともあります。
さあ、お願いいたします。

>>503
ピラフ挑戦してみようかな
4つ目の数字はEセルってことでいいの？

>>484
478です
お返事遅くなり申し訳ありません。
レスありがとうございます。
事故に遭い、レスをすることが出来ませんでした
皆様も車にはお気をつけて。

>>503
それ、難易度の変化無いです。


つか>>500本人とは思えんｗｗ

>>503
ちょっと前にEXCEL VBAのスレで似た様な質問が挙がってたね。

みなさん、すみません。
住所の数字が増えた場合は、EセルFセルと右に移動できたらと思います。
よろしくお願いします。

でも実際、中小企業の事務所ってこういうレベルなんだよね。

住所のデータは分割しない方がいいよ
塊全部でひとつなのだから

>>503
動きますかしら
https://friendpaste.com/1IJsAt4r0u4ESjQuNgDXLE

わけがわからない
なんのために番地をバラバラにするのか
漢数字には対応しなくていいのか

本当は処理したいのは住所じゃないと見た

そもそも、Aセルと言うのが俺には理解できないのだが
今だとA列にセルは１００万個ぐらいあるんだがなぁ

>>513
マジで言ってんのか
馬鹿じゃないのか…

やっぱりまともなのはピラフちゃんだけだね
ピラフちゃん好きだよ

住所の分割の必要性はまじでわからんな

アスペかよ

「住所から数字だけ抽出」をfor〜nextの自作で試してみた
25万件で1分55秒、50万件で3分33秒（シングルコア、画面更新・再計算停止）
Ａ列全ての1048576件はこれ以上と思うので試してない。

できたわ。
カス共サンクス

いえいえどういたしました

>>519
なん・・・だと・・・

VBA初心者です。教えて下さい。数値で0があった時、その下のセルは斜線をつけるようにしたいです。また、0以外の数値の時は下のセルに薄いグレーの網掛けをしたいです。試してはいるもののうまくできません。よろしくお願いします。

>>522
ここのスレでもいいけど、
EXCELのVBAに関してはこっちの方が賑わっているから
返事も早いし色んな人の意見が聞けると思うよ。
Excel VBA 質問スレ Part32
http://toro.2ch.net/test/read.cgi/tech/1381151717/

>>522
とりあえずマクロの記録ってのを試してみよう。それが判らないってんでは話にならん

>>523
自演で賑わってるように見えるだけでしょ。
>>522はクレクレ君のようだからそっちでいいと思うけど。

本スレはこっち
Excel VBA 質問スレ Part32
http://toro.2ch.net/test/read.cgi/tech/1381151995/

522です。ありがとうございます。教えていただいたスレに行って見ます。

>>525
行ってみましたが、何故本スレなのに10レスしか付いていないんでしょうか？

>>527
元々過疎スレだから。
コード作成依頼スレは自演してるからレス数が多くついてるだけ。
実際スレの中で自演してるって認めてるし。

http://toro.2ch.net/test/read.cgi/tech/1381151717/92

92 返信：デフォルトの名無しさん[sage] 投稿日：2013/10/17(木) 21:17:20.32
>>91
ここまで全部俺の自演でもいいから
とっとと自分の立てた糞スレに帰りなさい。
羨ましそうに荒らしに来ない様に。

因みに過去スレが見れるのならテンプレを見れば
こっちが本スレなのが分かると思うけど。

Excel VBA 質問スレ Part32
http://toro.2ch.net/test/read.cgi/tech/1381151995/

>>528
過去スレみて大体状況が分かりました。
何故レスが少ないのかも理解しました。
ありがとうございました。

w

ExcelのVBAからWebページを操作したいのですが
　(1)すでにあるページがひらいてるか調べる
　(2)もしひらいていたらそのページをアクティブにして前面に出し、そうでなければ新しく開く
という手順を実行したいです。

苦労してるのは、InternetExplorerというブラウザを使っているのですが
そのタブ機能があるのでブラウザは1個だけどその内部にタブが複数開いてるのを
どうアクティブにするかで悩んでいます。

どうかよろしくお願いします

嫌です

>>531
タブを複数開いていてもプロセスはタブごとに個別にあるよ

>>533
なるほどぉ。
ありがとぅ。
でも該当のやつをアクティブに、つまり前面に出すにはどうやるの？

>>534
今どこまでできてんのか見せてみて

>>534
しらね
IEのオブジェクトをFor Eachでとれるんじゃね？
それかOSレベルでのプロセス見つけてアクティベートとかできるんじゃね？
しらねしらねー

unlhaのAPI絡みの話ってここでしても良いんですか？ ExcelのVBA上からなんですけど

>>537
いんじゃない。書いちゃいなよ。

537です
ソースは
http://memopa.applest.net/d/112d26e7d487c3c35f
に

内容は
このマクロがあるフォルダにあるlzh圧縮ファイルを解凍し、出来たフォルダが xxxx なら それに " old" を付加しもう一つ xxx を作るというものです
解凍処理そのものは いろんなサイトで見てwなんとか出来たんですが、時たま（これが？なんですが）UNLHAが動作中ですというメッセージを
出して落ちてしまうことがあります。
んでUNLHAのドキュメントでは UnlhaGetRunningとかで動作確認をするとか。これをVBA上で実現する方法をしりたいのですが。

↑に貼ったソースでは該当部分はコメント化してあります。

'Public Declare Function UnlhaGetRunning Lib "UNLHA32.DLL" Alias "Unlha" () As Boolean

'If UnlhaGetRunning() Then
' MsgBox "UNLHAが現在動作中　一旦このブックを閉じて再度実行してください"
' Exit Sub
'End If

の部分です

>>539
UNLHA32.DLL は複数同時実行に対応していないんだから、
調子に乗って連続で実行してる時とかに間に合わなくて普通にExitしてるんだろ
適当にループでもさせとけば？

>>540
レスありがとです。unlha32.dllはスレッドセーフではないっていうことですよね。
で、その「適当にループさせる」ってのは具体的にはどういうことなんでしょうか

>>539
使ってないからよくわからんが引数とか戻り値の型とか違うんだけど？
http://www31.ocn.ne.jp/~heropa/vb05.htm

>>542
api定義の部分はさすがに同じだと思うのですが…
後、引数については、、取り敢えずあとで見返してみます^^;

自分のソースの
'UNLHA32.DLL呼出API
Public Declare Function UNLHA Lib "UNLHA32.DLL" Alias "Unlha" _
(ByVal hwnd As Long, ByVal szCmdLine As String, _
ByVal Lpstr As String, ByVal wsize As Long) As Long
Dim lngRet As Long

http://www31.ocn.ne.jp/~heropa/vb05.htm
Declare Function Unlha Lib "UnLHA32.DLL" _
(ByVal hwnd As Long, _
ByVal szCmdLine As String, _
ByVal szOutput As String, _
ByVal dwSize As Long) AS Long
Dim lngResult As Long

>>543
はあ？ >>539 は自分のソースじゃないのか？
悪いけど、抜けるわ。

>>541
俺は>>540じゃないけど
スレッドセーフって意味わかってる？
今までの情報ではunlha32.dllがスレッドセーフかどうかは判断できない

適当にループさせるってのは、何も考えなければ
実行中の状態が実行中で無くなるまで、ひたすら実行中かどうかをチェックするってことだ
極端に言えばこんな感じ
Do While UnlhaGetRunning()
Loop
実際には時間切れとかシステムの占有率とか考えないとダメかもしれんが

>>545
情報不足ですいません

Unlhaがスレッドセーフでないってのは、unlha32.dllの作者である人がそのAPI 説明ファイルの冒頭で

UNLHA32.DLL はスレッド・セーフではありません。(^^;)
従って， 複数スレッドからの同時使用は行えませんので
注意してください。

と書いているんで、そうなのですかということで。

>>546
作者がそう言ってるのならそうでしょう
そもそもVBAはシングルスレッド前提の言語なんで、VBAで複数スレッドから同時に使用するのは大変ですが

宣言部分が間違っていたみたいで
Public Declare Function UnlhaGetRunning Lib "UNLHA32.DLL" Alias "Unlha" () As Boolean
↓
Public Declare Function UnlhaGetRunning Lib "UNLHA32.DLL" () As Boolean
で
If UnlhaGetRunning() = True Then
MsgBox "UNLHA動作中"
Exit Sub
Else
MsgBox "test **** UnlhaGetRunningの動作確認 UNLHAはFALSE ****"
End If
ではtest **** UnlhaGetRunningの動作確認 UNLHAはFALSE ****が表示され、以下の処理も正常に終了
これで正しいのかどうか不安には思いながらも取り敢えずお終い

VBAからZip32jを呼び出してファイルをZIP形式で圧縮しているのですが、
ファイル名が「@@file.xls」のようにアットマークで始まるファイルが
圧縮できません。

strCommand = "-u ""file.zip"" ""@@file.xls"""
lngSize = Len(str)
RC = Zip(hwnd, strCommand, str, lngSize)

ざっくり書くとこんな感じでZip32jに渡しているのですが、
こういう場合はZip32jにどういう風にファイル名を渡せば
良いのでしょうか。

えすけーぷしーけんす？

ふるぱす？

ティンコ？

マンコ？

(´・ω・｀)b

５５５げっち(´・ω・｀)b

質問です。
Set res = Rows(1).Find(What:="2013")

これでオブジェクトが必要です。とエラーが出てしまうのですが、原因わかる方いますか？
検索結果がない可能性があるので、この後resのNothing判定をする予定です。

>>556
この1行ならエラー出なかったょ

他でエラー発生してるんじゃない？

>>556
Findの罠だな
これで動くこともあるからタチが悪い

面倒でも検索条件を省略せずにきちんと書いてみ

>>556
Dim res　の記述はどうなってる？
'Dim res As Integer 'オブジェクトが必要です エラー
'Dim res As Single 'オブジェクトが必要です エラー
'Dim res As Double 'オブジェクトが必要です エラー
'Dim res As String 'オブジェクトが必要です エラー
を再現した。　　　By　557

実際のコードです。エラーのあとデバッグを選択するとp.findの行で止まるので間違いないと思います。
Dim res As Variant　←これはいれてもいれなくてもエラーになります。
以前自分が作ったコードでは、同じような記述で動いていたのでこれでいいのかと。。。
省略せずに書くというのは、どこまで書けばいいのでしょうか？

p = Rows(1)
o = Year(DateAdd("m", mo, Cells(r, 2)))
Dim res As Variant
Set res = p.Find(What:="2013")

set p = rows(1)

ありがとうございます。
解決しました････ほんとバカで申し訳ない。

ｽﾞｺｰ

プロシジャが
operation1
operation2
operation3

とあって通常だったらoperation1からoperation2,opration3を
一連の流れで実行するのがあります。
operation3にはoperation1でGetOpenFilenameで得たフォルダ名を引数にして
call opration3(フォルダ名)
と書いてるんですが、このoperation3だけを単独で実行したい場合
どうします？勿論フォルダ名をどうにかして引数に与えるなりしないといけないん
ですが。

ope3_tandokuプロシジャを作り、そこでフォルダを与え、このプロシジャ中で
operation3(フォルダ）

で、このope3_tandokuをボタンで起動することにしました

よくできました

call operation3(フォルダの取得関数())じゃないのか、普通は

64ビット版Excel VBAでmscomctl.ocxのListViewが使えなくて困っています。
ListBox以外で、64ビット版対応方法を知っている人はいませんか？

ググれば出てくるじゃん

マクロでリストを作ろうと思い、試しに簡易版のマクロを組みました。
しかし、リストで参照してしるところが相対参照したいのですが、Formula1:="=$A$25:$D$25をどう変更したらいいでしょうか？
ご教示ください。
Sub Macro1()
'
' Macro1 Macro
Range("E24").Select
ActiveCell.Offset(1, 0).Select
Do
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$25:$D$25"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
ActiveCell.Offset(25, 0).Select
Loop Until ActiveCell.Row = 100
End Sub

すいません
下げわすれてました。

全くソース読む気も無いが、$A$25:$D$25は相対指定じゃない事はわかるぞ
A25:D25でいいんじゃないかね

>>572
そこは絶対参照のままでもいいんじゃないの？
やりたいことが、漏れなく書かれてるわけじゃないから違ってるかも知れないが
エスパーすると、たぶんこういうことがしたいのだと思われ

>>570
Sub Macro1()
　　Dim r As Long
　　For r = 25 To 75 Step 25
　　　　Cells(r, 5).Validation.Delete
　　　　Cells(r, 5).Validation.Add xlValidateList, xlValidAlertStop, xlBetween, _
　　　　　　"=" & Cells(r, 1).Resize(1, 4).Address
　　Next r
End Sub


因みに相対参照にするなら、.Address → .Address(0, 0)


しかし、自分の知ってる事というか自分が思い描いてることは
相手も把握している前提で話をするおバカさんって厄介だよね

ここはVBAの質問に答えるスレのはずなのに、VBAレベル的には初心者でも回答できるものばかりだが
正しい日本語で齟齬無く要望を伝える能力に欠けた奴の意図をエスパー的に酌み取る事の方ばかり
高レベルの能力が必要とされている気がする

まぁ俺もエスパーは本分じゃないんで、上記のコードも要望通りじゃないかもしれないけどw

>>573
> .Address(0, 0)

とか書く奴に偉そうなこと言われても...

質問がある。
その質問内容についてはすべてエスパーしてくれ。
で回答は具体的で詳細に。
ではよろしく頼む。

>>574
何勘違いしてるの？

>>576
>>574 の指摘内容が理解できてないの？ (w

すいません。
事の発端の>>570です。
自分のやりたいことを詳細に書き込まず、予想して補完してもらうような、質問をして申し訳ありませんでした。
>>572さん>>573さんありがとうございました。

>>577
まぁ、、、がんばれw

>>579
理解できてないのか...
て言うか、普通インテリセンスが効くから 0 なんて書くわけないと思うんだが。

もしかしてAddress(False, False)って書け、なんてレベルの話？

しかし、Addressの第一、第二引数は、規定値がTrueとはいえ、Boolean型ではなくVariant型で
それ故にインテリセンスも効かないし、そういうコードの明示性で言うなら、25や75を定数化しろって方が先な上に
こういう金を貰えるわけでもない場では明示性や読解性を犠牲にしてでも簡略化するのは常套手段なので
Addressの第一、第二引数には効かないインテリセンスがどうこう言ってることからしても、
0ではなく、Falseや相対参照を意味する定数を定義してそれを使えなんて単純な話じゃないよね？

いったい、どう書くのが正しいと言いたいのだろう？

あんまり虐めるな

エクセルは表計算が少しできます。マクロとかは知りません。
VBAをマスターしたく本屋へ行きましたがたくさんあり悩みました。
「10日間でマスター・・・」みたいなのがありましたが初心者でも大丈夫で
しょうか？そもそも10日間でマスターできるほど簡単？とは思えないのですが
初歩ですかね？

>>581は虐めてはいないだろ
>>574が井の中の蛙なだけ
小山の大将が、飛行機から見下された

>>583
初心者の入門用には、その程度から始めるのが良いかも。
ただ、同時に分厚いVBAの辞書みたいなのも買う事を勧める。
少しできるようになったら、疑問が出るだろうから本を買足すのも良いだろう。
また、「参照設定」での機能を説明している本は少ないので、
そこら辺はネット併用で情報収集して行けばよいと思う。

>>583
そもそも何がしたいかなんて人によって違う
デカい本屋で一日潰して立ち読みでもしてみて、一番自分がやりたいことが
分かるように書かれてる本を買え
ただ関数・メソッドの癖なんかは一々細かく覚えてられんので、リファレンス本は持っておけ

皆さん、ご丁寧に回答頂きありがとうございます。

>>585
「参照設定」を話題にするということは、これはものすごく便利なものということですね？
IEを操作するという本で見たことだけはあるけど
これは何のために使い、何が便利なのですか？

>>588
キーワードが分かってるなら少しはggks
便利かどうかは自分で判断しろ

>>589
そりゃないよかあちゃん。
参照設定とはなにかどなたかおしえてくださいませんでしょうか？

>>590
アプリケーションを「インストールする」みたいなそれ単体では無意味な言葉ｗ

>>591
レスありがとうございます。
ん、どういうことでしょう？
言葉の意味がよくわからないのですが・・・

アプリケーションをインストールするとは、広義では、アプリケーションを実際に使える状態にすることをいう
レジストリ登録は必須ではない

USBメモリに入れて持ち運べるアプリケーションも
それを入れたUSBメモリを接続すること自体がインストール

？

SDDのインストロールをファイルしてディスクトップのコピペをオーエスするんだよ

>>588
別に詳しいこと知らなくても使い方だけ知ってればそれでいいじゃん
俺も知らないけど特に困ってないよ。

とりあえずエクセルの標準的な設定では使えない機能が
ライブラリっていう形で用意されてて、
それを参照するように設定することでライブラリの機能が利用できるようになるってことらしいよ。

参照設定の内容はブックごとに保存されるから別のPCにコピーしても同じように動く。
ただし、用意されてるライブラリはエクセルのバージョンごとに違ってるから
コピー先のマシンにインストールされてるエクセルのバージョンによっては
エラーが出て動かない場合もある（らしい）。

あと、参照設定しないでライブラリの機能を利用することも出来るけど、
その時はインテリセンスが働かないからコード書くときにちょっと面倒だったりする。

一例としてFileSystemObjectを使うときには
Microsoft Scripting Runtimeっていうライブラリを参照設定しておくと
Dim fso As New FileSystemObject
って宣言するだけでFileSystemObjectが使えるけど、
参照設定してないと
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
みたいに書かないといけない。

そして、参照設定していればコード中でインテリセンスが働くから
fso.とタイプしたらその後に続くメソッドとかが表示されるけど
参照設定してないとそれが出てこない。

大体こんな程度しか知らないけど、今のところ特に困ってない。

>>588
プログラミングの学習は、いくら言葉を覚えて知識だけ詰め込んだって全然ダメだ。
最初はサンプルの丸写しでもいいから、とにかく手を動かせ。

> ただし、用意されてるライブラリはエクセルのバージョンごとに違ってるから
エクセルではなく大抵はOSやIEな
よく使用されるのは、Excelに付属するライブラリより、OSやIE付属のライブラリだから

例に挙げてるFSOも、Excel付属ではなく、OSに付属するIEに付属するWSHに付属するライブラリだから

>>599
そうなんですか、それは知りませんでした。
（この辺が良く知らないと言う由縁）
教えていただきありがとうございました。

FSOはもともとOS付属ではなかったが
参照設定は、ある共通ルールに従って作られたプログラムを使用するために使うもの
別に何かの付属のライブラリじゃなくても良いんだぞ

FSOが付属するようになったのはWin98SEからだっけ？
確かWin95やWin98だと、IEのバージョンアップするか、WSHの単体パッケージ入れる必要があったような

intにキャストすると小数部四捨五入するのやめれ。

>>603
暗黙の変換に頼る方が悪い
適切な関数なり数式なりで処理しろ

ところがclng（）より速いのがVBA

>>603
四捨五入じゃないんだけどな
それ以前にintにキャストってそれホントにVBAの話か

CType関数は小数点以下丸めることがあるから、小数切り捨てたい場合は使ったらあかんのね。

>>607
切り捨ては丸めの方法の一つだから、その日本語はおかしい

テキストボックスに文字を設定する時に
通常はチェンジイベントで設定された文字を処理するように書いてますが
とあるタイミングではチェンジイベントを実行したくないのです

その、とあるタイミングの前に、テキストボックスのEnabledプロパティをFalseにすれば
チェンジイベントが発生しないのかと思ったら発生しますね
そうなると、とあるタイミングの前に、グローバル変数を設定して
イベントの中でその変数を見て抜けるようなベタな方法しかないですか？

>>609
そこで一時的に全部のイベントを殺してもいいのならEnableEvents
止めたいのがテキストボックスのチェンジイベントだけなら自前でフラグ変数を用意しかない

>>610
VBAにはそんなのがあるのですか、良いですね
VB6のスレが無かったので、同じだろうと思ってここでお聞きしましたがVB6にはないようでした
ありがとうございました

EnabledがFalseでイベント発生したっけ？
イベントが発生してから無効にしてるんじゃないかと言う気がするが

説明が足りませんでした
Enabled=Falseでユーザー操作はできなくなりますが
コードからは操作できて、その時にイベントが発生してしまいます

VBAならAfterUpdate使え
それ以外なら知らん

Enabled=Falseの時のイベント発生を除外したいなら、
イベントハンドラでEnabledの値を確認すれば解決。

なるほど、本来の使い方ではないけど、それでいいわけですよね
対象のコントロールが少ないならグローバル変数を用意するよりスマートだし

スマートは大事

ID発行記念ｶｷｺ

実現の可否が分からないため、質問させて下さい。

Excel VBAでShell関数を使い、Powershellを呼び出し、その出力結果をtxtに出力して取り込んでいます。
Powershellを走らせて待っている間、Powershellの処理に時間がかかる場合に「(応答なし)」が表示されます。
待っていると動いてくれるので「(応答なし)」は表示させたくないのですが、DoEventsを使ってもだめでした。

「(応答なし)」を表示させない方法はあるのでしょうか。

「Powershellを走らせて待っている間」について詳しく

ついでに、その応答なしってどこに表示されるかも

>>620
>>621
powershellで「compare-object」という比較のコマンドを実行しています。
比較するデータと結果の差分が多いと出力に時間がかかり、作成したユーザフォームの左上にあるcaptionに「(応答なし)」と表示されてきます
(10秒位経っただけで表示されてしまう印象)。
その「(応答なし)」を表示させない方法があるのかどうか、知りたいと考えています。

処理の流れとしては、
ユーザフォームでファイルを選択させて、
もろもろのオプションを指定した上で、
実行してpowershellを呼び出してcompare-objectで比較して出力、
という内容になります。

VBA側のCaptionに表示させたくない文字列の内容が分かってるなら、
単に条件分岐させて消すなりなんなりすればいいじゃん

>>624
すいません、正式名称が何というのか分かっていなかったのですが、「タイトルバー」ですかね、、、
Captionの右側に「(応答なし)」が表示されてきたので、622の箇所ではCaptionと書いてしまっています。

622の質問の段階で、Captionで意味が通じているようであれば、
条件分岐をさせて「(応答なし)」を出さない方法がよく分かっていないです。

『待っている間』について詳しく

>>626
コードの必要な箇所を抜き出すと以下になります。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Public Const INFINITE As Long = &HFFFF

Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

If 〜 Then
Dim TaskId As Long
Dim hProc As Long
DoEvents
TaskId = Shell("powershell " & Chr(34) & "& { " & 〜 & "}" & Chr(34), vbMinimizedNoFocus)

hProc = OpenProcess(PROCESS_ALL_ACCESS, 0, TaskId)
If hProc <> 0 Then
Call WaitForSingleObject(hProc, INFINITE)
CloseHandle hProc
End If
End If
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

実のところ、shell関数の所で止まっていると思い込んでいたのですが、確認したところだと、powershellというよりは後続の同期処理、「Call WaitForSingleObject(hProc, INFINITE)」のところで起きているようでした。
おそらくこの部分を変えてやればうまくいくと思うのですが、しかしどうすればいいのか、分からない状況です。

>>627
同期処理用のAPIではどうしても応答なしになってしまう
Powershellのスクリプトの最後で、処理の完了を通知するぐらいしか思いつかない
たとえばテンポラリファイルを使うとか原始的な方法で

>>627
> WaitForSingleObject

一番最後の引数に 1000 ぐらいを指摘して、１秒毎にポーリングすればいい。
タイムアウトかプロセスが終了したのかは戻り値を見ればわかる。

>>628
Function findMyBook($bookname)

$books = [System.Runtime.InteropServices.Marshal]::GetActiveObject("Excel.Application")
foreach ($mybook in $books.WorkBooks){
if ($books.Name -eq $bookname){
return $mybook
}
}


実行するVBAのブック名が固定されるんなら、PS側の必要な処理が終わった後に
PS側でそのブック名見つけてやればいいんじゃないかね多分

>>629
VBAを以下のように修正し、応答なしが出なくなったことを確認しました。

＝＝＝＝＝＝
(前)
If hProc <> 0 Then
Call WaitForSingleObject(hProc, INFINITE)
CloseHandle hProc
End If

＝＝＝＝＝＝
(後)
Dim RC As Long

If hProc <> 0 Then
Do
RC = WaitForSingleObject(hProc, 1000)
DoEvents
Loop While (RC = &H102)
If RC <> 0 Then
Exit Sub
End If
CloseHandle hProc
End If

＝＝＝＝＝＝

>>630
VBAの方でうまくいったのでpowershellの方は試していませんが、別の機会に試してみます。


皆様、ご協力ありがとうございました。

>>631
> If RC <> 0 Then
> Exit Sub
> End If
> CloseHandle hProc

RC <> 0 の時もハンドルクローズしないとリークするよ。

>>632
ご指摘助かります。
入れておきます。

配列（A,B,C,D）
配列（123,456,789）
これを下記のようにDebug.Printしたいのですが、コードをご教授ください。お願いします。
A123
B123
C456
D456
E789
F789

>>634
ピラフが教えてあげちゃう。

　Dim A
　A = Array("A", "B", "C", "D", "E", "F")

　Dim B
　B = Array("123", "456", "789")

　Dim I
　I = 0

　Dim E
　For Each E In B
　　Debug.Print A(I) & E
　　Debug.Print A(I + 1) & E
　　I = I + 1
　Next

>>635
ピラフ様
あなたが私を救って下さいました。ありがとう。（心臓）

二人ともよく見ろ
できてないじゃん

タオパイの自演か？

Debug.Print A(I + I) & E
Debug.Print A(I + I + 1) & E

天津飯が好きです@22歳OL

>>638
なんじゃそりゃｗ
ふつーは
I = I + 2
だろ

>>639
桃白白のことは？好き？

桃(も)白(ちろ)白(ん)

Excel VBAで、シートのOELobjectsとしてファイルを追加しましたが、
そのファイルをまたファイルとして出力する方法がよくわかりません。
ご教示いただけないでしょうか。

一時的なバックアップとしてファイルをシート上に保管して、問題があったらそこからファイルを復元しようとしてます。

ここは貼ってもいいんでしょうか？
作ったものが全く思い通りに動かず悩んでます。
初心者なので別スレがあるのであれば教えていただけますと移動いたします。

短いのならここに直接貼ってもいいよ
長いのはコード貼るサイト使った方がいいと思

ありがとうございます。技術が無いので無駄に長くなってしまっています。

とりあえず、コード貼れるサイト
https://friendpaste.com/

選択肢にVBAがないからVB.netでも選んどいて

>>644
コードまだー？
俺も初心者だから他人の書いたコードを参考にしたいんだよー

自己解決しました
どうも

ExcelのA1〜F1に任意で入れた数字を降順で並べたいんだけどよくわからん…
バブルソートさせるのはわかるが、表から数値を持ってくるにはどうしたらいいんですか？

>>650
a = Range("A1:F1")

>>651
sub sort()

Dim a As Integer
Dim i As Integer
Dim j As Integer
Dim min As Integer

a = Range(A1:F1)

Do While j < a - 1
i = j + 1
Do While i < a

End Sub

よくわからん

>>652
aは配列
Rangeは初心者にはおすすめしない

Dim a() As Integer
Dim i As Integer
For i = 1 To 6
　　a(i) = Cells(1, i)
Next

宿題は自分でやれ

デフォルトプロパティ省略するのやめた方が良いぞ

>>654
それはなぜですか？

左辺がVariantじゃないから大丈夫

今時学校でVBAを教えるところがあるのか

PDFで問題となっているものを、マクロを使って以下のように以下のようにできますでしょうか？
もし、可能ならばご教示ください。
１、PDF上の問題記号を選択すると解答選択肢が出てくる。（リストボックスのように）
２、その中から解答を選択できる。
３、最後に正答率、間違ったところの答え、間違ったところの根拠表示

すいません。上げてしまいました。

すいません。

>>658
とりあえずPDFのサンプルをどっかにアップしてください

http://www.pref.kochi.lg.jp/soshiki/310601/h24itijisinnsamondaitokaitou.htmlの一番上にある教職・一般教養 [PDFファイル／1.93MB】です。
よろしくお願いします。

>>658
そのPDFの内容のうち、どこが問題記号でどこが解凍選択肢か、正解はどれか
そう言った情報が機械的に判断できる必要があるんだが、それは可能なのか？

>>658
ttp://pdf-file.nnn2.com

ここでも嫁

>>663
そうですね。確かに正解と回答を参照することが頭から抜けていました。正解は正解のPDFを元に手打ちで、Excelに打ち込もうかと思うのですが、良い方法はありますでしょうか？

>>663
＞>>658
＞そのPDFの内容のうち、どこが問題記号でどこが解凍選択肢か、正解はどれか
＞そう言った情報が機械的に判断できる必要があるんだが、それは可能なのか？
このすべてどうやればいいかわかりません。

対象のPDFが最初の1本だけの場合、問題数は28、回答のパターンは5つかな？
この分量だと全自動化は非効率すぎる
コード書く手間を考えると手動でリストボックスを並べてった方が早い

全文をコピペしたあと、カッコの中に丸付き数字が入った部分を文字列検索してリストボックスに置き換え
これぐらいはVBAでできるな
選択肢は丸数字、スペース、単語、スペースの繰り返しになってる行を検索、それ以外のパータンは手動で設定

よく見たら全部画像じゃねーか
まずはOCRからか
こんなもんVBAの質問の範疇じゃないわ

何万回も計算とかするためにセルに入力されてる1000単位のデータを、いちいちシートから参照すると時間がかかりそうだから二次元配列に格納して取り扱ってるんですが、やっぱり計算に時間がかかるんで配列より早い方法ってないですか？
そもそもシートから参照したほうが早かったりしますかね。

その前にシートに計算式がてんこ盛りなら再計算をストップしてからするとか

>>669
すくなくともセル参照よりは配列を参照する方が早いというのが通説
頻繁に参照する場合は配列に入れてアクセスするのは常套手段

時間かかってるのが参照ではなく計算そのものなら、参照早くしてもあんまり効果ないだろ

>>669
計算量が多くてスピードが重要ならVBAじゃなくてせめてVBを使え

>>66
> そもそもシートから参照したほうが早かったりしますかね。

1000単位のデータの内使うのがひとつだけとかの特殊な状況でない限り、ぜ〜〜〜っていあり得ない。
つーか、今配列使ってるならセル参照に変えてみなよ。

どうも回答ありがとうございます。
配列のほうが早いみたいですね。

シートでの計算も一切してませんし、会社のＰＣなのでＶＢを導入することも難しいので
計算式を見直して速度を上げたいと思います。

まともなコンパイラも許可せずに、そんな大変な計算をさせるなんてどんなブラック企業だ

>>674
計算式を見直すんじゃなくて、処理を見直したほうがいいと思う

エクセルVBAのunicode文字列をｄｌｌに渡す処理のことで質問があるんだけど
このスレでOKですか？

構造体の変数が2つあるんですが
1つを他のもののコピーとしたいんですが
単に代入すると同一のものの参照となります。
そうじゃなくて構造体の全メンバの変数の値をコピーするにはどうするのが一般的ですか？

Structure Student
Dim name as String
Dim age as integer
Dim sex as String
Dim first_time_sex_date as Date
End Structure

Dim student(2) as Student

student(1).name="Taro"
student(1).age=16
student(1).sex="Male"
student(1).first_time_sex_date="2012/7/7"

student(2)=student(1)
student(2).name="Jiro"

みたいにすると変になる。

VBAでIEを操作するとき
タブ(複数開いてる)でアクティブになっているページをgetするためには
どういうコードになりますか？

あ、そういえばExcelで他シートをActivateしたらそのシートでActiveCellになるはずのセルのアドレスを
そのシートをActivateせずに取り出す方法を以前発見したのですが
それはどういう方法だったのでしょうか？

>>678
構造体の全メンバをコピーする関数はないの？
クラスによくある、cloneとか

コピーには、Shallow Copy(浅いコピー)と、
Deep Copy(深いコピー)の2つがある

構造体の中に、構造体の参照があったらどうする？
クラスの中にクラスの参照とか、または相互に入っていたら？
さらに、2重、3重になっていたら？

深いコピーだと、参照なら本体を新しく作って、
本体もコピーするが、
浅いコピーだと、参照をコピーするだけなので、
本体は同じものを使ってしまう

>>682
すんません、なにも知らんです。
ExcelのVBAには全メンバコピーの方法ってないのですか？
cloneってなにかのクラスのメンバメソッド？
あれ、VBAはクラスって使えるの？

ところで他言語でクラスの勉強はじめたけど、よく考えたら構造体とクラスって似てるよな。

VB.netには、Copy, Cloneがあるが、
VBAはV6仕様なので、無いかも？

クラスはある
クラスモジュールにクラスを定義して、new して使
なので、ここにCloneを自分で定義したら？

漏れもよく知らない
検索で調べただけだから、自分でも調べて

それと、複数のスレで同じことを聞く、
マルチポストは禁止なので、どちらかを取り消すこと

>>683
＞ところで他言語でクラスの勉強はじめたけど、よく考えたら構造体とクラスって似てるよな。

ちょっと待て。VBAは普通構造体というとユーザー定義型のことを指すけど、
VB.NetやC#の構造体とごっちゃに考えていないか？
VB.Netとかの構造体でクラスと似ていると言うなら、
そりゃそうだろとしか言いようがない。と言うか、
どういう時にクラスを使ってどういう時に構造体を使うのかを調べれば
すぐに分かると思う。

かなり低レベルな内容だとは思いますが、判らないので教えてください。

日付をmm/dd/yy形式で出力してくるログをyyyy/mm/dd形式で取り込みたいのですが、
普通にformat(date,"yyyy/mm/dd")みたいにするとうまくできません。
（たとえば05/05/14は、2014/05/05とならず、2005/05/14となってしまいます）

とりあえず仕方なく前６桁と後ろ２桁で分離してくっつけなおすという格好悪い方法でやってますが、
もっとスマートなやり方があったら教えて欲しいです。
よろしくお願いします。

低レベルとは
0100011011010101
みたいな話だ。

>>686
前5桁じゃなくて6桁？

ログってことはテキストファイルだろうから、テキストファイルウィザードで日付→MDYを選択すればいい
http://imo73.eek.jp/up/imo0105.png

>>688
即レスありがとうございます。
そうです５桁でした。

そして対象が行ごとに違う内容が入ってくるログなのと、
読み込んだ日付を基準に処理を分岐させたいのでその方法は使えないです。

>>689
> とりあえず仕方なく前６桁と後ろ２桁で分離してくっつけなおすという格好悪い方法

で、やれてるんじゃねーのかよ。
まあ、条件後だしする奴にはなに言っても無駄か...

次の行が読めなかったんだな。可哀想に。

セールスマン問題にアニーリング法をうまく組み込めない…

>>692
VBA無関係

データ構造,アルゴリズム,デザインパターン総合ｽﾚ 2
http://toro.2ch.net/test/read.cgi/tech/1362301811/

>>689
方法はあまり変わらんけど、こんなのも有るよ
moto = "05/07/14"
Debug.Print "moto= " & moto
moto20 = Left(moto, 6) & "20" & Right(moto, 2)
Debug.Print Format(moto20, "yyyy/mm/dd")

2099年までこの方法は使える、2007では識別出来たけど、他Verは判らない。

ゴミ

>>686
Splitで"/"で分割して、年の部分だけ頭に"20"でもくっつけて、
順番かえて"/"で結合するようなんじゃダメ？

年が2000年代固定ってどうなのよ
ログで99年が2099年ってどこの未来から来た人ですか

それはシステムの特性によって切り分ければいい話だ
どのみち入力の年が2桁の時点で判断は必要になるわけで

年数の二桁→四桁変換はOSの設定に任せとけば良い。
とか思ったけど、書式指定でDateに変換する方法が無い罠だった。

スマートなやり方ってのがどんなのをご希望か知らんが
moto = "05/07/14"
Debug.Print "moto= " & moto
saki = DateSerial(Mid(moto, 7, 2), Mid(moto, 1, 2), Mid(moto, 4, 2))
Debug.Print Format(saki, "yyyy/mm/dd")
まあこんな感じか

どうやっても大差ない

moto = "05/07/14"
saki = DateValue(Right(moto, 2) & "/" & Left(moto, 5))
Debug.Print Format(saki, "yyyy/mm/dd")

ノートン　問題　裁判

ノートン　問題　裁判

ノートン　問題　裁判

ノートン　問題　裁判

日別の購入データの通し番号から、マスターを参照してジャンル分けして、ジャンルごとの合計金額を出したいです。

http://light.dotup.org/uploda/light.dotup.org28231.png
↑
データはこのような画像の通りにシート３つに分かれて存在しています。
どのようなマクロを組めばいいかお教え願いたいです。
ジャンルごとに変数というものを持たないといけないのでしょうか？
実際は母が使うので、ボタン一つで出来るのだとありがたいのですが・・・
大変面倒な質問ですが、お願いします

具体的なコードを教えてください
本当に困っていますお願いします

>>703
ピボットテーブル使うってのは？
答えに全くなってないわけだが、、、、

>>704
ボタンひとつで計算してくれるようにしたいんですが
そのコードを教えてください

凄まじいマルチw

>>705
コード作ってもいいが保守するのが大変。
まずは標準の機能でできないものかトライするよろし。

こんにちは。セルの不一致部分を取り出して、１から並べ直し、
修正したデータを入力するというマクロを作成しているのですが、
同じ列で複数の間違いがあった場合、iを進めないように、コメントアウトしているif文を入れたのですが、
そうすると、２行目で　実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです
が表示されてしまいます。
列に間違いは２つ以上ないということで、コメントアウト部分を削除したままなら問題なく稼働するのですが、
この１文を入れるとどうしても進みません。
Arrayには、不一致部分のセルの座標が入っています。

全然ここから進まなくて困っていますので、どうかご教授お願い致します。




Do

ws.Cells(Array_l(j), Array_r(j)).Value = s1.Cells(i + 1, Array_r(j)).Value
'B1の数値を修正する
ws.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B1のセル背景を元に戻す
ws2.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B2のセル背景を元に戻す

'If Array_l(j) = Array_l(j + 1) Then
i = i - 1
'End If

j = j + 1
i = i + 1

If Array_l(i) = Empty Then Exit Do
Loop

コメントアウトしている部分は
i=i-1
の部分です　'つけ忘れです、すみません。

>>708
省略してる部分が多すぎて何がやりたいかわからん
ステップ実行するかなんかでロジック追ってみたら

昔ならこれフロー書いてみろとか言われるんだろうな
しかし、変数名って大事だなと思うわ

>>710
返信ありがとうございます

iを調節するIF文を入れるとなぜか
s1.Cells(i + 1, Array_r(j)).Value　にエラーが出るんです。

s1.Cells( 2 , 4 ).Value
という風に変えてもエラーが出るんです。
IF文を消せば消えるんですが。

事故解決できました！ありがとうございました！

KING SOFTのVBAは完全互換ですか？

>>713
何と？

まったく同じプログラムなのに保存したらファイルサイズが違った
これでは完全互換とは言えない

>>715
エクセルでブックを別PCにコピーして開き、
何もせずにそのまま保存してもファイルサイズが変わることがある

すみません、Excel VBAを使用したWordの処理でお聞きしたいことがあります。

バージョンはOffice2010です。

【目的】
定型の文章の所定の部分のテキストを置き換える処理を考えています。
データそのものは、VBA内で計算で求めたりCSVなどのデータを読み込んだりします。
例えば、こんな感じです：
○○年には日曜日が○日あり、うち夏日以上の日が○日あった。
（年はInputboxからの入力、日曜日の日数はVBAで計算、夏日以上の日数はCSVのデータを取り込んで計数処理）
※文章などは適当に作成しています。

これをExcel VBAで作成しようとしたのは、関連するExcelのブックを別に作成する必要があるからです。
そのため、一括処理をしたいため、Wordの処理をExcel VBAで処理する計画を立てました。

【考えた処理】
文章は穴埋めですので、その部分を置換する処理を考えました。
ところが、この部分はテキストボックスに入っており、
レイアウトの関係でグループ化されています。
そのため、次のページのスクリプトを参考の上、
CreateObject("Word.Application")でWordオブジェクトを作り、
穴部分に識別記号を仮置きして置換処理をすることにしました。
参考スクリプト：http://www.ka-net.org/blog/?p=859

※別の人が別のPCで使う可能性があるため参照設定は使えません。
したがって、Shape型変数はObject型で定義しています。

（続く）

（717の続き）

【事象と質問】
置換がうまくいかないため、ステップインで調べたところ、
> .Text = SrcText
> .Replacement.Text = DestText
の設定がされていないことがわかりました。
※参考としたスクリプトをそのままWord VBAで実行するとうまく行くことは確認済みです。

質問は、設定ができない理由と解決策です。
（置換以外の方法でも可ですが、文章はWordで今の構造のままでExcel VBAを使うことは必須です。）

よろしくお願いします。

最低でもWordの方のサンプルうpをよろしく

>>719
717に書いたような穴埋め文章です。

> 例えば、こんな感じです：
> ○○年には日曜日が○日あり、うち夏日以上の日が○日あった。
> （年はInputboxからの入力、日曜日の日数はVBAで計算、夏日以上の日数はCSVのデータを取り込んで計数処理）
> ※文章などは適当に作成しています。

具体的には、次の文章が完成形になります。（例では、毎年3月に作成する設定。）
「2012年には日曜日が53日あり、うち夏日以上の日が120日あった。」（2013年3月8日作成）
「2013年には日曜日が52日あり、うち夏日以上の日が147日あった。」（2014年3月12日作成）
※数字は適当です。
※数字以外の文言は全く同じですが、
もとの文章には書式の設定が一部テキストに設定してあるため
.TextFrame.TextRange.Text = yyyy & "年には日曜日が" & dd & "日……
のようにTextプロパティで直接設定するのは難しいと思われます。

このような文章が、テキストボックスに入り、
ラインなどの図形との相対位置を固定する目的でグループ化されています。

なので、雛形とする文章としては、
「@@@年には日曜日が＃＃日あり、うち夏日以上の日が＊＊日あった」
として、@@@を2013に、…と置換するマクロを企画しています。

>>720
そういう言葉での説明じゃなくて
実際のコードを晒せってことだと思うよ

コードっていうかWordの文書ファイルの現物ね

>>722
Wordにあるオブジェクトの情報は717に記載した通りですが、
構造を理解していただくためにサンプルを用意しました。
ですが、アップローダにファイルを置いたことがないため、
オススメのアップローダを教えていただけると幸いです

>>721
コードは、717のコードのキャンバス部分の処理を若干手直しした、次のものを使っています。
動くかどうかの実験ですので、手入力などの処理ではなく、全てコード内に記述してあります。
※実際の作業では特定のテキストボックスのテキストの置換で足りるのですが、
その特定のテキストボックスを指定する知識がないため、オブジェクトを総ざらいしています。

（コードは次のレスで）

（723の続き）
Sub ReplaceString()
Dim appWD As Object, WDfile As Object
Dim ShapeObj As Object, GrpObj As Object, CvsObj As Object
Const SearchStr As String = "＠＠＠"
Const ReplaceStr As String = "2013"

Set appWD = CreateObject("Word.Application")
Set WDfile = appWD.Documents.Open("C:＼hoge＼fuga＼717document.doc")
appWD.Visible = True

For Each ShapeObj In WDfile.Shapes
If ShapeObj.Type = msoTextBox Then
ReplaceShapeText ShapeObj, SearchStr, ReplaceStr
ElseIf ShapeObj.Type = msoGroup Then
For Each GrpObj In ShapeObj.GroupItems
If GrpObj.Type = msoTextBox Then
ReplaceShapeText GrpObj, SearchStr, ReplaceStr
End If
Next GrpObj

（if文の途中ですが、改行が多いと怒られるので続く）

（724の続き）
ElseIf ShapeObj.Type = msoCanvas Then
For Each CvsObj In ShapeObj.CanvasItems
If CvsObj.Type = msoTextBox Then
ReplaceShapeText CvsObj, SearchStr, ReplaceStr
ElseIf CvsObj.Type = msoGroup Then
For Each GrpObj In ShapeObj.GroupItems
If GrpObj.Type = msoTextBox Then
ReplaceShapeText GrpObj, SearchStr, ReplaceStr
End If
Next GrpObj
End If
Next CvsObj
End If
Next ShapeObj

appWD.Quit
Set appWD = Nothing
End Sub


Private Sub ReplaceShapeText(Shp As Object, SrcText As String, DestText As String)
If Shp.TextFrame.HasText Then
With Shp.TextFrame.TextRange.Find
.ClearFormatting
.Forward = True
.Text = SrcText
.Replacement.Text = DestText
.Execute Replace:=wdReplaceAll
End With
End If
End Sub

>>717
>>724-725のコードをそのままExcelのブックにコピペして

Sub ReplaceString()
に
Const msoTextBox As Long = 17
Const msoCanvas As Long = 20

Private Sub ReplaceShapeText(Shp As Object, SrcText As String, DestText As String)
には
Const wdReplaceAll As Long = 2
を追加したら動きました。

Const msoTextBox As Long = 17
と
Const wdReplaceAll As Long = 2
は、参照設定すれば不要になったのですが、

Const msoCanvas As Long = 20
は、参照設定しても省略できませんでした。
うちの環境がOffice2000だからかもしれません。

とにかく、この状態でマクロを実行すると、
指定したドキュメントを自動で開いて
その中に複数あるテキストボックス内の
複数ある"＠＠＠"をすべて"2013"に置換することまでは確認できました。
うちの環境では要求どおりの動作を出来ているので
717さんの環境でなぜ正常に動かなかったのかは分からないです。

>>726
確認、ありがとうございます。
Office2000で、定数宣言を加えたら動作したとのことで
組込み定数まわりを確認しました。

> Const msoTextBox As Long = 17
についてはif文でTrue判定されるオブジェクトがあり、
それが該当のテキストボックスであることが確認できましたので
組込み定数として存在するようです。
おそらく
> Const msoCanvas As Long = 20
についても問題はないと思われます。
※調べてみると、描画キャンバス自体は2002から導入のようですので、これが原因かもしれません

> Const wdReplaceAll As Long = 2
こちらの中身をイミディエイトウィンドウで確認すると、値がない（未定義）ようでした。
この定数を宣言して実行したところ正常の動作が確認できました。
考えてみれば、この定数はプリフィクスがwd、つまりWordの定数ですので、
デフォルトのままではExcel VBAのVBEでは使用できないということのようです。

解決への糸口となったご報告をいただきありがとうございました。

（追伸）
テキストボックスでないことからググった時には除外していたのですが、
どうやら似たような質問がQ&Aサイトにあり、
この時は解決できなかったようです。

>>727
動いたようで何よりでした。おめでとうございます。

ただ、一点気になったのですが、
もしかしてOption Explicitをお使いになってなかったのでしょうか？
私は必ず使用しています。

今回も最初にコピペしたままのコードを実行したら
定数の部分で宣言がされていないというエラーが出たので、
そこを定数で宣言すると言う段取りでコードを動かすことが出来ました。
（定数の値はプリフィクス名でググって見つけました）

つまり、あえてエラーを出すことでデバッグが容易になったのです。
717さんの場合も宣言を強制しておけばすぐに解決できたと思われます。

Option Explicit を使わずに開発なんてしなくてもイイ余計な苦労をしたがるんだね w

>>729
頼むから必要な読点を打ってくれ

>>730
日本人でない>>729にそれを期待するのは、ちょっと酷というもの

むしろ読点が無いくらいでグダグダ言ってるやつらの日本語読解力は
とても日本人レベルとは思えない

読点を使わずに長文なんてしなくてもイイ余計な苦労をさせたがるんだね w

読点を打つ所がないから打ってないんだろ

Option Explicit を使わずに開発なんてしなくてもイイ。
余計な苦労をしたがるんだね w

つまりプログラミングやめろって事だなｗ

>>734
オイｗ

Option Explicit を使わずに開発なんて、
しなくてもイイ余計な苦労をしたがるんだね w

こうだろうが。

そうか。VBAはOption Explicitだけなのか。
気楽なもんだな。

>>735
その解釈が正しいかどうかは本人にしかわからない
だからちゃんと必要な読点を打てという指摘は正しい

>>737
それこそ日本語読解力の問題であって
前後の文脈から考えて>>735以外の「正解」はありえない。

んなアホなｗ

イヤイヤ、皆さん盛り上がっておられるようで、どうもスイマセンね w
一応>>735さんの書かれたつもりだったんですが w

よう、俺

お前ら仕事出来なそうだな…

自己紹介ですね

返しもつまんねえな…

ああそうだな…

俺の人生にoption explicitを指定しておけばよかった。

エラーで実行できないぞ
つまり始まりすらないってことだ

俺の人生なんて生まれた時から
Option Private Module されてんぞ...

想定外の処理がどんどん追加されて、誰もメンテできないスパゲッティ
もう不要だとわかってても削除できない"高校の時の彼女"クラス
いつまでもインスタンス化されない"結婚"オブジェクト

結婚はオブジェクトって言うよりイベントじゃないかな
多分、彼女クラスにそういうメソッドが実装されてないんだよ

通じすぎてウケるｗ

メソッドは確かにあるはずなんだが引数が不明
パラメーターを色々変えてみたけどエラーになる

彼女クラスにメソッドが有っても
彼女オブジェクトが実体化してないんだよ。
エアだから。

あと、結婚イベントの発生トリガーは資産パラメータの値が一定の閾値を超えたかどうかだったりする。
割り込みかけてムリヤリイベント発生も出来るっちゃ出来るんだが、その場合はできちゃった婚イベントが発生する。

しかし、彼女を嫁クラスに格上げして子クラスを作っても
ダックタイピングしてるから自分の子供だと思ってるだけで
嫁オブジェクトを使った他人の子供を継承してるだけ
DNA鑑定というインタフェースで発覚するようになった

お前らまとめてキモい

エクセルでIEを操作するときに、
アクセスしているwebページのjavascriptの変数に設定されている値を取得できますか？
DOMアクセスみたいな感じで。

できません

>>756
Functionローカル変数は 取得できないけど
それでもよければ　一応やり方(当方 IE6 です)

�@表示するHTMLの中に
　＜SPAN ID=EXCEL style="visibility:hidden"＞＜/SPAN＞
　を作っておく ( ＜ ＞ は半角に変換してね)

�AExce VBAで
ObjIE.document.Script.execScript "document.all.EXCEL.innerText=変数名"
Debug.Print ObjIE.document.all.Excel.innerText
を実行
注-1) execScriptに指定するコードは javascript構文上 正しい必要があります(大文字･小文字に注意します)
注-2) 存在しない変数名を指定した場合　実行時エラーになります。

補足
�@を用意しなくてもいい方法はあるけど
裏技的(?)な 手法な気がするから 書き込んでいいものか・・・・

vbaにクエリを書いて実行させると、「実行時エラー '3704': オブジェクトが閉じているときに、操作は許可されていません。」とエラーが出るんだが、解決方法教えてください・・・
DBはsqlserverです。Management studioでは問題無く結果が出ます。

クエリは一時テーブルを作成して、データを入れる形式のものです。

ググったら、SET NOCOUNT ONを加えると解決するとありましたが、全く解決しません。

MySQLとやりとりしているもので何回か出てきたことがあるな。
sql文発行する前に接続状態確認して接続が切れていたら接続し直すようにしたら
直った（？）みたいなんだけどなんで接続が切れたのかは？ w

>>759
どう見たって接続がブチ切れてるときに接続しようとしてるな。
接続すればいいだけじゃん。

>>752
引数はデリゲートで出来ていて、設定するメソッドによって幸せな人生が送れるか離婚するか一家心中かが決まる。

レコードセットの列を指定して、重複を避けて行数を取得する方法ってないですか？
RecordCountを使ってみたものの、重複を避ける術が分からなかったため、取り敢えず行数を取得しようとしたところ、結果が-1続きです。
CursorTypeをadOpenStaticにすると解決すると知りましたが、結果は変わりませんでした。

>>763
sqlでgroup by使っちゃったら？

SQLだったら distinct を使えば
詳細は

SQL質疑応答スレ 15問目
http://peace.2ch.net/test/read.cgi/db/1402919549/l50

ででも聞いて

>>764
>>765
すいません、group byは使用していますが、氏名ごとに項目がまた分かれていて、氏名でカウントしたくても重複してしまうんです。
distinctで重複行を削除してしまうと、取得したい部分もが取得出来ないんです。

どういうテーブルの構成になっていてどういう形でデータが欲しいのか後出しせずに
最初に明らかにしといてよ

これ以上は765で書いたSQLのスレでやって

>>766
なるほどお。Scripting.Dictionaryに値を取り込んでCountプロパティを参照しちゃうのはどう？

ちょっと気になったんで

>>763
"何の"レコードセットなのか書け
adOpenStaticとか書いてるからADOだとは思うが

あとわかってると思うけど、下の方でSQLでとかいろいろ言われてるのは
レコードセットの行数数えるんじゃなくて、レコードセット作るときに考えて
それに応じたレコードセット作れって話だぞ

状況によっては素直にループまわして数えたりするのもありかもしれん

配列で処理した方が良さそうだな

ソートだのカウントだの、ワークシートに並べてワークシート関数でやるのが一番簡単だと思うけどなぜかみんな拒否するんだよな
便利な道具をあえて使わないマゾが多い

それを言ったらVBA使ってることがマゾだろうな。
便利機能なら.Netフレームワークとかで外からやった方がよっぽど使えるものがあるし、
有る程度以上出来る人は余程の事情や拘りがない限りそうしてる。

みんなが大好きな 車輪の再発明

>>772
会社だと、使うのは自分じゃないことも多いから
ブック渡せばいいだけと言うアドバンテージがあるから

結果がExcelで欲しい時はシートにボタン貼ってマクロ登録した方が手っ取り早い

ここにはあまり大きなシステムを扱う人はいないのかな。
ある程度大きなシステムなら改修案件としてEXCELファイルを出力する機能を盛り込むことを考えるもんだけど。
確かにEXCEL単体で済むようなツールとかであればVBAも有効。
ただ、だったらソートのやり方ぐらいでガタガタ言わない。元々規模としては小さなものなんだから。

エラそうに

>>776
もともと Office は エンドユーザが主に 使うからね

＞だったらソートのやり方ぐらいでガタガタ言わない。元々規模としては小さなものなんだから。
これいわゆる　情シス部門の言い分だよね
エンドユーザから見ると　むかつくよ

自分は情シス部門・エンドユーザ部門の両方在籍した事あるから
よくそんな事いってたし 言われた

>>778
＞もともと Office は エンドユーザが主に 使うからね

いやそれは偏見だろ。
エンドユーザーであればなおのこと、コーディングルールなどに縛られることもなく勝手気ままに作れるんだから
それこそソートの方法なんてとやかく言われる筋合いもないだろうな。
ネットでVBAのソートのコード拾ってきて貼り付けて自分のとこ用にちょっと直しておしまいだよ。

id 名前　年齢　のような表があって、
それに何かしらの処理をプログラムがあるとします。

そのプログラムは以下のように列がベタ打ちになっています。
range("A" & i).value

列を以下のように挿入したとき
id 苗字　名前　年齢
プログラムのベタ打ち部分を変更しなくてはなりませんが、
これを自動で認識してくれるようなベストプラクティスはありませんでしょうか？

>>780
Cellsで指定する

1ピクセルごとRGBカラーを取得する方法は、無いですか？
excelVBAで。

もちろん、ファイルフォーマットを理解して処理するとかなしで。

>>782
たぶんこれ
http://www.bird-soft.net/mt/2008/07/getpixelexcel_vba.html

ちがってたらゴメン

>>781
いやいや、range("B" & i) を
cells(i, 2)にしたところで何も変っておらんでしょｗ

>>783
ありがとう！これでいけます。
会社の制限だらけのPCで、画像をppmフォーマットにしたかったんです。
画像処理プログラム作るのにppmはシンプルだから楽なので。

>>780,784
こんなんどう？

予めEXCELで(VBAでもいいけど)セル範囲に名前をつけておく

B:B に　"名前"とかね

んで
Range("名前").cells(1,1) ･･････ B1
Range("名前").cells(2,1) ･･････ B2

A列とB列の間に列が挿入されたら
その名前の定義範囲も自動的に移動する

>>780
>>786が一般向け。
ただし、後から管理するようになった人には非常にわかりづらいものになる。

プログラマとしてなら"A"をベタ打ちしない。（ベタ打ちを埋め込みまくるのを、ハードコーディングと呼ばれる）
Const 名前 = "A"のように宣言して、

プログラム中で、const名を使う
range(名前 & i).value

これで、Const 名前=を変更するだけで
にするだけでプログラム中の列は全部漏れなく切り替わる。

>>786,786
回答ありがとうございます。

constはそれなりに有用だと思いますけど、
ベタ打ちの１元管理に過ぎず、あまり好きな手法じゃありません。
列を削除した時など、A列とかで指定でされているため
そのまま動作し、バグの温床ともなりそうです。

個人的には、786の手法がベストだと思いました。

しかし、ここで問題点がもう１つ。
range("名前")ですが、例えば、他のexcelファイルから
本体のexcelファイルを操作している時など、
activeworkbookが自身であるか不確実な状況だと誤動作する可能性がありますよね。

thisworkbook.range("名前")とできればいいんですが、
シートオブジェクトじゃないと駄目だし、
worksheet(1).range("名前")とかだとせっかく名前定義してんのになんでシートの指定が必要なの？
って感じだし、なんでrangeを自分自身じゃなくてactiveworkbookに実行するんだマイクロソフトォォォって感じなんですが、
こんなときスマートな方法があれば教えてもらいたいです。
あらかじめ、activateしておくぐらいですかね？

active〜は一番使っちゃいけないやつだと思うが…

私も嫌いですが、
これ以外の方法見つからないんです。。。

>>790
Application.Range(範囲名)で開いてるブックの範囲は全部とれるはず
名前が競合するときは、範囲名はブック名で修飾できる

Rangeのヘルプには
>オブジェクト修飾子を指定せずにこのプロパティを使用すると、ActiveSheet.Range のショートカットとなります
って書いてあるんだが、実際はApplication.Rangeだと思うんだが
範囲名使うとこの二つで動作違う
オブジェクト省略したときの動作はApplication.Rangeと同じっぽい

あと
>なんでrangeを自分自身じゃなくてactiveworkbookに実行
自分自身とは何を指してるのかわからんが
(ActiveWorkbookが返す)WorkbookにRangeは無いぞ

>>788
省略した時の仕様が気に入らず確実さを取るなら、すべてのRangeに対してブック名を省略しなきゃいいだけ

>>791
ありがとうございます。
applicationなんてものがあったのですね！
これでいきたいと思います！

VBAで別のアプリを動かすのに、UIAutomationを使ったコードのサンプルってあるかな

エクセル2007でのVBAについてです。

曜日　　　　開始　　終了
月　　　　　　10 120
火 80 350
水 90 250
…
日 180 620



上のような７行３列のデータベースがあったとして、
「曜日」という変数が「月」だったなら
開始=10、終了=120
のように予め関連づけたいのですが
最もスマートで簡単な方法はどのようにしたらいいのでしょうか？
if文でひたすら場合分けする方法しかわかりません。

上のデータベースはVBA上で記載しても、
エクセルのシート上でも構いません。
ただし、当方あまり複雑なのは分かりませんので（データベースを呼び出すなど）
できるだけ単純なものを希望します。

>>796
いつも思うけど "スマートな方法" って その人それぞれの主観が入るから他人には分からんよ
その人とっては良いと思っても　他の人には "スマートじゃない!"てのは多々ある
で自分ならこうする

※シート上にそのテーブル作成して
Dim Ws As Worksheet
Set Ws = Worksheets("Sheet1") 'テーブルのあるシート
開始 = Application.WorksheetFunction.VLookup(曜日, Ws.Range("A2:C8"), 2, False)
終了 = Application.WorksheetFunction.VLookup(曜日, Ws.Range("A2:C8"), 3, False)


※VBA内で Select Case で処理する手もあるけど
メンテ考えたら お勧めしない。

>>797
ありがとうございます。
勉強になりました。

VLookup使うならVBAとかいらんけどな

>>799
じゃぁ　君なら

>>796への　ベストと思う回答は？

>>800
799じゃないけど、
dim r as range
set r = range("A1").currentregion.columns(1).find("火")
if not r is nothing then
debug.print r.value
debug.print r.offset(0, 1).value
debug.print r.offset(0, 2).value
end if
とかやったりするなぁ。

あ、>>796読んでなかったわ。

その関連を頻繁に使うのなら、Dictionaryを使う手もある。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.html
↑の内容が理解できるかどうかわからんが・・・。

曜日は増えないから、selectでいいような気がするけど。

ちょっと外出するので
まとめレスします

>>802
なるほど　Dictionaryってあるんですね　知らんかった
ただ
Dictionary使った事ないんであれですけど
1つのKEYに対して二つの値を格納する事が "単純に" 出来るんでしょうか
自分も一瞬 コレクション使うってのも考えたんだけど
ちょっと工夫しないといけないんで　そこで引っかかったんですよね

＞できるだけ単純なものを希望します。
ってのもあったし

>>803
たしかに曜日は増えないけど
開始・終了値は　変わる可能性があるわけで
その可能性が ほぼないとするなら
select Case でもいいとは思うな


>>799さんへ
VLookup使わない　回答をお待ちしてます。
自分も勉強になりますんで

>>804
> 1つのKEYに対して二つの値を格納する事が "単純に" 出来るんでしょうか
え？二個のDictionary作ればいいだけじゃん。

あ！なる　そういう手法なのね
取り急ぎレスします。

>800,804
元データをどっから持ってくる（どこで定義する）かによるが
VBAを使う特別な理由が無ければ、VBA使わないってのがスマートだと思うんだが
あらかじめエクセルシートで用意できるなら、俺ならこのぐらいならVBA使わん

どうしてもVBA使う理由があるなら、その理由とVBAの規模次第でどうやるか変わるだろ
ちょっとした使い捨てぐらいのコードなら、Select Caseでべた書きも良いし
大規模なシステムの一部なら、配列やディクショナリにでも入れて処理するか
それ用のユーザ定義型やクラス作る手もある

自分だったら、

セルに値を予め埋めておいて(constの代わり)、下のようにして拾ってくるだけで済ませるけどね。
Select Case 曜日
Case "月"
開始 = ThisWorkbook.Worksheets(1).Cells(1, 2).Value
終了 = ThisWorkbook.Worksheets(1).Cells(1, 3).Value
Case "火"
開始 = ThisWorkbook.Worksheets(1).Cells(2, 2).Value
終了 = ThisWorkbook.Worksheets(1).Cells(3, 3).Value
...

800のひとまで799のvlookupに噛み付いているけど、あれは検索項目がソートされているのが前提だから、
今回のように月、火、水、と曜日で並んでいるデータには向いてないんじゃないのかい？
曜日の並びが変わるのは見た目もメンテナンスもわるい。
そもそも799はVLOOKUPで済むような話だとVBAに起こさなくてもExcelシート内でやりたいこと解決してしまうってことでしょ。

>>808
> あれは検索項目がソートされているのが前提だから、

一致検索ならソート要らんでしょ

携帯でレスは随時みてたけど　又まとめてレスします。
>>807 さんへ

まず後半部分は　その通りだけど
＞Select Caseでべた書きも良いし
＞配列やディクショナリにでも入れて処理するか
＞それ用のユーザ定義型やクラス作る手もある
が良くてVlookupがだめな理由は？

>>799 ＞VLookup使うならVBAとかいらんけどな
否定されるなら　その理由がほしい

でそれが
前半部分であるなら

>>796 ＞エクセル2007でのVBAについてです。
である事　そして
>>796 ＞「曜日」という変数が「月」だったなら 開始=10、終了=120
>>796 ＞のように予め関連づけたいのですが
と書いては あるけど　それが最終結果だとは読みとれんかったし
これを元になんらかの処理をしたいんだろうなと自分は受けとって回答した

だから >>799さんが
＞「曜日」という変数が「月」だったなら 開始=10、終了=120のように予め関連づけたいのですが
を最終結果と判断してあのレスなら　それはそれで納得できる。
(自分には単純に否定されただけに見えたし　>>796さんにそれなりの説明つけてレスして欲しかった)

>>808 さんへ
ごめん勉強不足かもだけど
>>809さんと同じ認識だったんだけど
詳しく解説を頼みます。

>>810
なにか気に障ったのなら謝っておくわ

俺はVLookupがダメだとは言ってないぞ
もちろんVBAでVLookupでやっても良いよ
ただ、出来るだけ単純にって言う元質問者に対して
それならVBAすら使う必要ないんじゃないかって投げかけてるだけ

Select Caseでべた書きのくだりでVLookupに触れてないのは、その前に
>元データをどっから持ってくる（どこで定義する）か
>あらかじめエクセルシートで用意できるなら
と書いてるだろ
これを受けてるから、エクセルシートにデータを展開しないような状態
つまりVLookup使えない想定での話だからな

VLookup使える状態でなおかつVBAを使う理由があるならVBAからVLookup使えば良いよ

>>807 の説明ならここまで噛み付かなかったよ

>>799 にむかついた

個人的な感想を言うと、俺もVBAでVLOOKUP()を使うのはすごい違和感がある。
だってfind()でrange取り回した方が楽じゃん（個人的感想）。
VBAでWorksheet関数を使うのは、VBAでは多くのコードが必要だがそれを使うと簡単に書ける場合のみ。

>>810
ソートは指摘の通りで勘違いっす。詳しく語るほどのものではないよ。
VLOOKUPで泣いたことがあるのでさ。
お手柔らかに。

>>804
>1つのKEYに対して二つの値を格納する事が "単純に" 出来るんでしょうか

KEYに対する値に「配列」を納めればいいだけじゃね

配列が嫌ならユーザー定義型もあるしな。

それにしてもExcel VBAスレってプログラミング初心者ばかりだなw

>>816
そりゃ上級者(笑)はこんなスレ見ないし他の言語触ってるからな

実際の検索値となるのは曜日ではなく別の文字列であり
説明用に曜日で代用させていただきました。
実際のデータは曜日みたいに固定ではなく今後増える可能性があるので
>>808のselect caseというのがすごく分かりやすかったのですが
今後の汎用性を考えて>>797の方にしようと思います。

ただ、自分の頭で描いていたのは>>802のdictionaryのようです、が、
いまの自分には使いこなせ無さそう…

>>804
2つのディクショナリを使うのはいいけど、入れ子にするつもりなら
処理が煩雑になり易いのであまりお勧めはしません。
コレクションや配列、ユーザー定義やクラスを使ってやるのが面倒だというのであれば、
例えばディクショナリのキーに対応する値にカンマ区切りで文字列を結合し設定して、
取り出した後にカンマで分割して個々の値を取得する方法も有ります。
ただしこの場合は値にカンマが含まれないことが大前提になりますが。

変数X=変数Y*変数Z*if(定数>10,1,0)

みたいに、if文を条件式ではなく変数のように使うことはできますか？

if 定数>10 then
変数X=変数Y*変数Z
else
変数X=0
endif

でもいいのですが、同じような変数Xがたくさんあるとごちゃごちゃしてしまいます。

>>820
IIf

定数>10の結果が変わる事は無いと思うんだが...

初期値で与えるイメージだった
わかりづらくてすまん

>>823
質問の意味がわからん
定数が変数の間違いだったとして

If 変数A > 10 Then
　　変数X = 変数Y * 変数Z
Else
　　変数X=0
Endif

なら

変数X = 変数Y * 変数Z * -(変数A > 0)

と書ける

タイプミスした
変数X = 変数Y * 変数Z * -(変数A > 10)
の間違い

>>822-825

>>821で完璧な答えが出てるのに
何故にそんなにこの話題を引っ張るのか意味が分からん

変数X = 変数Y * 変数Z * iif(定数 > 10,1,0)

もちろん今回に限っていえば False の時に 0 だから
>>825みたいなやり方もあるけど、
True と False が両方とも0以外の場合には結局 IIF を使うことになる。

>>825
この書き方嫌い

>>826
> 変数X = 変数Y * 変数Z * iif(定数 > 10,1,0)

なんでそんなに分かりにくい書き方するかなあ

素直に
変数X = IIf(10 < 定数, 変数Y * 変数Z, 0)
でいいと思うが。

Iif禁止

>>828
「Ifの判定結果を式に反映したい」という>>820の質問主旨に沿った書き方をしたまで、
Falseでゼロとかそういう特殊なケースではなく、汎用的に書いたら>>826のようになる。

>>830
ああ、>>820 の一行目か
その下の If 文の奴しか見てなかったわ、すまん

IIf使う奴は氏ね

暗黙の変換と、論理値を数値として使うやつはさっさとプログラムやめろ

>>832
どうやって死ねばいいでしょうか？

>>833
As Object
で宣言して使うのもダメかな？

実はそうしないと自力では解決できないものがあって
聞きたいんだけど

>>835
As Object の何がいけないの?
俺も良くやるけど。