Excel VBA 質問スレ Part20

01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/
15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/
16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/
17 http://hibari.2ch.net/test/read.cgi/tech/1289182437/
18 http://hibari.2ch.net/test/read.cgi/tech/1298240666/

前スレ：
Excel VBA 質問スレ Part19
http://hibari.2ch.net/test/read.cgi/tech/1305754555/

ExcelのVBAに関する質問スレです

★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。

★2 ExcelのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。

　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。

★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

>1-2 乙

いきなりの質問ですが
例えば列を20列目までデータを入力した後
データを全て消しても、UsedRange.Rows.Counで最後の列を取得すると
20列目が選択されてしまいます。
これを解消するには何か手段はあるのでしょうか？
よろしくお願いします。

workbookをたくさん扱うVBAを書いてるんですが、
workbookのブックナンバー(シートでも出てくるindexと呼ばれるヤツ)を取得するにはどうすればいいんですか？
エラーが出るばかりでエラいことになってるんですが・・・

cells(x,y)やrange("A1")を扱うとき、その直後に .value は省略できないんですか？
いままで .value となるべきところではずっと省略して書いてきたんですが
たったいま初めて .valueを書かないと正常に実行されない現象を確認しました。

>>4
UsedRangeを使わなければいい。

>>5
Index使わないとダメ？For eachで何とかならない？

>>6
外すな。付けとけ。

>>7
じゃどうすればよい？

>>7
うんIndexを使いたい

>>7
わかった。でも省略できる条件とかある？

EXCEL2003　XP32bitSP3の環境です。

VBAからwindowsのAPIを使いたいと思って、調べた結果
VBAから直接呼び出せないAPIはDLLを作って呼び出す方法が
有るのは見つけたのですが、最終的にDLLになるんだからDLL作成
言語は何でもいいという認識で良いですか？

>>4
１回保存したら行ける気がする
しかし、いま2007で確認したら、ちゃんと消した後の範囲返したぞ
>>5
WorkBooksに使うインデックスなら、名前でも行けるからブック名使っとけ
>>5
Rangeのデフォルトプロパティは実はValueではないからValueを期待した省略はやめとけ

>>9
そのAPIが呼び出せて、VBAから呼び出し可能なDLLが作れればなんでも良いんじゃね

>>5
>>10 の意見に賛成だけど

どうしてもIndex取得したければ自前で作るしかない
でも Index だと　途中でブックをクローズしたりすると
それ以降のIndexが ずれるけどいいの？

まあ下記とかで取得するしかないような

Sub TEST()
　WBNO = BookNo("BOOK2.XLS")
　Debug.Print WBNO, Workbooks(WBNO).Name
End Sub

Function BookNo(WBNAME)
　'ブックが存在していない場合 0 を返す
　Dim No As Integer
　Dim Wb As Workbook
　BookNo = 0
　No = 0
　For Each Wb In Workbooks
　　No = No + 1
　　If LCase(Wb.Name) = LCase(WBNAME) Then
　　　　BookNo = No
　　　　Exit For
　　End If
　Next
End Function

しかし、何でBookのIndexなんか欲しがるんだろうな。
何をやりたいのかよく分からん。

>>11
そのコードが実行される時、アプリケーション内にブックが存在しないケースなんて有るの？

>>12

たぶんコメントの事をいってるのだと思うけど
プロシージャ BookNoは ※文字列※としての"ブック名"を引数として必要としてるが

Callする際に存在していない(又は無効な)ブック名を指定する事はいくらでも可能なわけだが

そもそもIndexで管理したいというのが間違い

>>13
ああ、なるほどね。
済まんかった。

画面上にコマンドボタンを表示して
押せばVBAが実行されるようになっていますが
画面を下へスクロールさせるとボタンだけが取り残されてしまい
現時点では手動でボタンの移動を行っています。
これをどうにかして画面をスクロールさせた場合でも
同じ位置に表示させることは可能でしょうか？

【原発問題】汚染水処理システム、パソコンのフリーズで稼働停止　パソコン再起動で完全復旧[08/05]
http://raicho.2ch.net/test/read.cgi/newsplus/1312544716/

>>16
VBAとは関係ないけど
"ウインドウ枠の固定"をしておいてスクロールしないエリアへ
コマンドボタンを配置じゃダメなの？

IEで表示したサイトをコピーして、エクセルシートに貼り付ける処理を行っています。
今まで順調に利用できていたのですが、つい先日から

、「このページを使用して、クリップボードから情報を貼り付けますか？」

というダイアログボックスが表示されるようになってしまいました。
環境は

エクセル2003
IE6 SP3
WinXP

です。

スクリプトによる貼り付けの許可は有効にしてあります。
どのような対処をすればよいでしょうか。

コピーじゃなくてinnerText使えばいいんじゃね？

>>19
ちょっとくぐってみたけど
そのメッセージは、IEからでてない？
Excel vba 関係ないような

スレチ じゃね

publicな変数でもそれは同じブック内に限り
どんなモジュールからでも参照できるということで
他のブックからは参照できないという認識であってますか？

もしそうならブック間でも共通に使えるような変数ってどうにか作れないのだろうか？

>>12
わたしがBookのIndexが欲しいと言ってるから使いたいのだ。
きみがSheetのIndexの使用をわたしに禁止されたら困るだろ？

VBAに限らず、CやJava含めたプログラミングにあたり、
変数は、値渡し、参照渡し、矢切りの渡し、
どれをメインに使っていくのが得策でしょうか？

>>22
セルに書いておけば良いじゃん

>>25
シートを汚したくないの

>>22
その考え方で合ってると思います。
が、
そもそも、複数モジュール間のやりとりをPublicな変数で行うのは如何なものかと思います。
プロパティであれメソッドであれ、セッタやゲッタを作ってやりとりすれば
モジュール間であれBOOK間であれ、
特に深く考える必要も無くて宜しいんじゃないでしょうか。

>>27
ありがとうございます。
セッタやゲッタのことについて勉強して出直してきます。

VBAを勉強するにも結局はいろいろいじらないと覚えないけで
本だけじゃ使いこなすスキルにおいて身に付きません。
Excelのシート関数も同様で、結局は他人の作った関数がいっぱいあるシートをたくさん見ているときがかなり上達した気がしました。

VBAでも誰かが作ったコードを大量に見れるようなサイトはないですか？

シートモジュールじゃなく標準モジュールに

Sub worksheet_change(ByVal a As Range)
MsgBox "うんこ"
End Sub

と書いたら反応しないのはぜですか？

また、シートモジュールに書いても別シートだと反応しないのはなぜですか？(Private Subじゃないのに)

>>30
釣り？

釣れた(笑)

冗談はさておき、

シートモジュールじゃなく標準モジュールに
　Sub worksheet_change(ByVal a As Range)
　MsgBox "うんこ"
　End Sub
と書いたら反応しないのはぜですか？
また、シートモジュールに書いても別シートだと反応しないのはなぜですか？(Private Subじゃないのに)

>>33
つヘルプ

>>29
ＶＢＡに限らずこう言ったものを作りたいと言った時に、
こう言った組み方をすると綺麗に実装出来るよと言う
定石的な物が有ります。
それをデザインパターンと言うのですが、
ＶＢＡには継承と言うものが無く（当然、継承が無いわけですから
オーバーロードやオーバーライドは存在しません。
しかし何故かインターフェースは有りますので、そちらでポリモーフィズムは
使えたりします。）
実際には継承の替りに委譲を使ったりしなければなりませんが、
それでも考え方として取り入れると、ＶＢＡ固有のクラスに関しては
別途使い方を覚える必要はあるものの、
どういう組み方をすればいいかの参考にはなると思います。
求めているものと違うかもしれませんがご参考までに。

ttp://www.atmarkit.co.jp/fdotnet/vbcheer/vbcheer12/vbcheer12_01.html

>>24
いつまでたっても馬鹿なわたし

あれっVBAのフォームに、メニュー作ることってできなかったっけ？

ﾃﾞｷﾙﾖ

>>24
ドジっ娘がてんぱってわたわたし

>>38
どうやるの？

ここで聞いていいものか不明です。
スレ違いで有れば削除します。

VBAでGroupMaxのメール操作は出来ますでしょうか？

具体的には共有book(非ブックの共有)の勤務表等で
間違いや未記入が有る場合に対象者にお知らせメールなどを
VBAで自動的に送信したい。
Outlookが使えれば出来そうなんですが・・・・。

使用環境

Win XP SP3
Excel 2007
GropMax 6

まずスレ違いだと思うよ

たが ちょっとコメントを
GroupMaxって日立のグループウェアでしょ
この手のアプリって自社開発ソフト以外の外部アプリから操作って基本出来ない(させない)って
思うけどな。(セキュリティ問題もあるし)
まあGroupMaxの開発元に聞くしかないよ

>>38
ゎたしどうゃって作るか聞ぃてるんですけど♪

モジュールの宣言セクションに書いておいた「ステートメント」は
そのモジュール内のどのプロシージャが実行されるときにその直前に必ず実行されるのでしょうか？
気になって夜も眠れません。

あれっモジュールの宣言セクションに「ステートメント」って書けなかったっけ？

誰か助けて。

宣言セクションって、変数を宣言することくらいしかできないの？
その変数に初期値を代入しようとしてるんだけど、そうしたらマクロ自体が実行できなくなった。

あれっVBAのフォームのコントロールって、配列コントロールにすることってできないっけ？

フォームを使ったマクロを終えるとき
フォームを消すための「Unload UserForm1」みたいなコマンドは
付けておいたほうがいいですか？または無くてもいいですか？

またそうするのがいいと思った考え方を教えてください。

http://xls.seesaa.net/article/18597936.html

>>49
ありがとうございます。
そうするとloadはshowを含み
unloadはhideを含むということですね。

つまりshowしたらload+show、
unloadしたらhide+unload
をしたことになる？みたぃな。

VBなら
UserForm_Initialize()
UserForm_Load()
の2つあるのに

VBAなら
UserForm_Initialize()
の1つしかないんですね。

ついでに質問ですがVBでプログラミングしてるときに
UserForm_Initialize()とUserForm_Load()の使い分けってあるんでしょうか？
またどちらかをメインに使ったほうがいいのであればその心を教えてください。

Private Sub UserForm_Terminate()
はどういうときに使うの？

ユーザーフォームをターミネートする時でしょ

>>53
なるほど。さっぱりわからん。Thanks.

>>47
出来ないはず。おかげでイベントハンドラ書くのがしんどい。

>>55
やっぱりできなかったのか。ありがとう。Thanks

>>55
クラスモジュール使えば　それに近い事できるけど
メンドイからその説明はしない

>>51
> UserForm_Initialize()とUserForm_Load()の使い分けってあるんでしょうか？
当然ありますよ｡自分はフォームを拡張するクラスを作って､WithEvents使って
クラス側でフォームのイベント処理をしているけど､InitializeにもLoadにもコードは書いてあるし
これはどちらかにまとめることも､当然ながら入れ替えることも出来ない｡

> またどちらかをメインに使ったほうがいいのであれば
それは目的次第だよ｡基本的に目的に合ってる方を使えば良い｡
両方とも目的に合ってるなら好きな方を使えばいいし､目的に合わない物を無理して使う必要も無い｡

>>47,55-56
クラスとコレクション使って､疑似コントロール配列にすれば良い｡
疑似なんて言うと本来のというかVB6のコントロール配列に劣るように聞こえるかも知れないが
実は疑似コントロール配列の方が高度な処理が出来て､VB6でも標準のコントロール配列を使わず
疑似コントロール配列で実装することも多い｡

>>58
横レスになるけど失礼します

疑似コントロール配列の作り方というか
綺麗に実装出来る参考となる文献なりサイトってご存知ないですか？
何度か疑似コントロール配列は作った事はあるんですが

コレクションは使わず
配列にクラスオブジェクトを入れてたりしたんですが
なんか定石みたいなのって ないかなって思ってます。

>>59
添字でアクセスしたいだけとか
イベントをまとめたいとか
動的に作成したいとか
目的によって実装方法は千差万別

(疑似)コントロール配列は､目的そのものではなく
目的を満たすための手段でしかないんだから定石も無いし
実装の何を以て「綺麗」とするかは人それぞれなので
君が綺麗だと思う実装方法は君にしか見つけられない

つーか､初心者は綺麗とか定石とかに拘りすぎ
綺麗に書くことが目的になっていて､その先が見えていない
全てのコードは目的を実現するための手段でしかないことを忘れるな

>>60
ありがとうごさいます
ご意見を胸に刻み精進します。

コードに「綺麗さ」を求める奴は大概トリッキーなコードを書いて後々保守する奴がそれで苦労させられるということを全く考えていない
所期の目的を達してなおかつ判りやすいというのを目標にすりゃぁいいものを

vbaってマルチスレッドできない？

すれ違いじゃないかという気もするけど

VBAにおけるマルチスレッド処理
http://bbs.wankuma.com/index.cgi?mode=al2&namber=47345&KLOG=80

>>62
お前の「後々保守する奴がそれで苦労させられるようなトリッキーなコードが綺麗なコードである」
という認識が間違ってるとは思わないの？

とりあえずみんな『ビューティフルコード』くらい読んでから綺麗とは何かを語れや

OS：Windows7 x86 SP1
Office：Excel2010(14.0.6023.1000)
【コード】
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

シートの枚数分ループ---
maxRow = Worksheets(targetSheet).Range("A65536").End(xlUp).Row
Worksheets(targetSheet).Range("1:" & maxRow).Copy

targetRow = Worksheets(1).Range("A65536").End(xlUp).Row + 1
Worksheets(1).Rows(targetRow).PasteSpecial Paste:=xlPasteValues
----

【現象】
上記コードで複数シートに入力されているセルを1つのシートへまとめてるVBAマクロ
を実行した後に、
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic ←これ
End With
を実行するとExcelのステータスバーに
再計算:(プロセッサ 4個): 0％
と出てだんまり状態になってしまう。
マウスホイール回転やクリックするとすぐに再計算が実行されて終わるけど
何もしないでいるとずっとこのままで、マウスカーソルが○マークになって
マクロの処理は終わっているのにまだ処理中になっている状態に見えてしまい
気になるのでなんとかしたいんですが、解決策をご存知の方はいらっしゃいますか？
自動再計算はVBA終了後ONに戻したいです。
ちなみに、コピー対象のセルは他のシートを参照する関数を使ってます。

>>65
> お前の「後々保守する奴がそれで苦労させられるようなトリッキーなコードが綺麗な
> コードである」という認識が間違ってるとは思わないの？

>>62 も間違っていると書いてあるんだが。

ひょっとして馬鹿？

> コードに「綺麗さ」を求める奴は大概トリッキーなコードを書いて
というのが間違い。
コードに綺麗さを求める奴は、大概トリッキーなコードは書かないだろ。
まあC++で簡単なテンプレートを使うくらいで「トリッキーなコード書きやがって」とかいう低脳もいるが。

>>68
>>62が間違っていると主張しているのは、コードに綺麗さを求める行為。

なぜなら、綺麗なコードは得てしてトリッキーなコードであり、後続のメンテナを苦しめるから、という主張でしょ。

>>70
> 綺麗なコードは得てしてトリッキーなコードであり

新たな主張？

>>62 が書いてるのは「「綺麗さ」を求める奴は大概トリッキーなコード
を書いて」だけ。

「綺麗さ」を求める奴が「綺麗なコード」を書いてるとは書いてないよ。

>>71
> 新たな主張？
表現が間違ってた。訂正する。

なぜなら、綺麗なコードは得てしてトリッキーなコードであり、後続のメンテナを苦しめるから、という主張でしょ。
↓
なぜなら、綺麗なコードを求める行為は得てしてトリッキーなコードを産みだし、後続のメンテナを苦しめるから、という主張でしょ。

綺麗なコードを求めると、なぜ全員が綺麗なコードが書けないと思っているのかが不思議。
綺麗なコードを求めて、綺麗なコードを書けばいいでしょ。

まあ、VBAの世界じゃ、Class使っただけでトリッキーと言われ、
Eventを使いこなすと悪魔と言われるからな。

>>72
> 綺麗なコードを求めると、なぜ全員が綺麗なコードが書けないと思っているのかが不思議。

「大概」を無視して勝手に不思議がる方が不思議なんだが...。

> 綺麗なコードを求めて、綺麗なコードを書けばいいでしょ。

陥りやすいってことでしょ。
真偽は知らんけど。

そもそも「綺麗なコード」を求める奴のほぼ全てがトリッキーなコードを書くだなんてこと
>>62はおろか、お前さんらも知るはずもないので、議論しても無駄。

「綺麗なコード」を求める行為を良しとするかどうかは、>>62が思う「綺麗なコード」の内容を
聞かなければ議論しても無駄。

>>74
誰が何に陥りやすいと？

シート上にフォームコントロールからチェックボックスを配置して
チェックの状態でif文を使い判断させたいのですが
このオブジェクトの指定方法が分かりません。
シート上のチェックボックスの名前はチェックにしています。
chk = Worksheets("Sheet1").OLEObjects("チェック").Object.Value
だと上手くいきません。
どこが悪いのか分かる方教えてください。お願いします。

>>76
>誰が何に陥りやすいと？

>>「綺麗さ」を求める奴は大概トリッキーなコードを書いて

の意味が理解できないの？

とりえあずお前ら、綺麗なコードの定義を出せ

>>77
これでいいんじゃね
chk = Worksheets("Sheet1").CheckBoxes("チェック").Value
If chk = xlOn Then
　　　　Debug.Print "onです"
　　Else
　　　　Debug.Print "offです"
End If

>>79
役割ごとにきちんと分割してあれば見やすいな。
綺麗なのとはずれるけど

Me.CheckBox1.checked = True
とかそんな感じじゃないの

>>80
>>82
ありがとうございます。
一応思った通りの動作をさせることができました。

=ROUNDDOWN(( D3 ) - 26 * 110 * Sheet1!E2,0)
とセルに入っている内容を
replaceを使って
=ROUNDDOWN((( D3 ) - 26 * 110) * Sheet1!E2,0)
のようにしたいのですが上手くいきません。
分かる方お願いします。

>>84
上手くいきません。だけじゃなく
どのようなコードで　どうゆう結果なのか書いてくれないと
（エラーなら　エラーめっせーじも)

もしかして
Rangeオブジェクトのreplaceメソッドを使ってるのかな？
だとしたら この例だと
計算式が 一時的にせよ 破綻しないように変更するの難しいような
つまり 一発で ( ) を追加できない限り　計算式が一時的に破綻する
(破綻した時点で 実行時エラー となる)

下のやり方の方が良いんじゃない？
　.Formula で計算式を文字列として取り出し
　変更(Replace関数等使って)後に　元のセルに戻す

すみません。自分で考えたのは以下の式です。
Cells(1, 1).Formula = Replace(Cells(1, 1).Formula,
"=ROUNDDOWN" * " * Sheet1!E2,0)", "=ROUNDDOWN(" * ") * Sheet1!E2,0)")
これでいくと型が一致しません。とエラーが出ます。
多分*のところが駄目なのかと思いますが解決策が見つかりません。
>つまり 一発で ( ) を追加できない限り　計算式が一時的に破綻する
まさにその状態で直接書き換えるぶんには破綻しないのですが
replaceで一気にいくとエラーの件で書き換えられません。

型が一致しませんって当然のような

これ自体が VBA の文字列式(構文的)に 既に破綻している
"=ROUNDDOWN" * " * Sheet1!E2,0)"

"=ROUNDDOWN"　と " * Sheet1!E2,0)"
を積算しようとしてるからな

やるなら
"=ROUNDDOWN"" * "" * Sheet1!E2,0)"
だろ
あと
Replace関数ってワイルドカードってできたっけ？

>>87
答えて頂きありがとうございます。自己解決しました。
Cells(1, 1).Formula = Replace(Cells(1, 1).Formula, "=", "")
Cells(1, 1).Formula = Replace(Cells(1, 1).Formula, "ROUNDDOWN", "ROUNDDOWN(")
Cells(1, 1).Formula = Replace(Cells(1, 1).Formula, "* Sheet1", ") * Sheet1")
Cells(1, 1).Formula = "=" & Cells(1, 1).Formula
=を無くして式でな形式にしてエラーを防ぎ
カッコを付けたして最後に=を足して式にする。
いろいろとお騒がせしました。

あとひとつ書き忘れです。
>Replace関数ってワイルドカードってできたっけ？
自分もそこが分からなかったのですができるかな？と思って。

>>「綺麗さ」を求める奴は大概トリッキーなコードを書いて

持論厨乙すぎる
なんで「綺麗＝トリッキー」って等式作っちゃったのか気になる
まさかとは思うが変なアルゴリズムかまして短くまとまったコードを「綺麗」と形容してるんだとしたらゴミだな

>>88
もう見てないかもしれないけど
自己解決して納得してるんならいいんだが
セルへのアクセスは最小限にした方がいいような
自分ならこうする
Str = Cells(1, 1).Formula
Str = Replace(Str, "ROUNDDOWN", "ROUNDDOWN(")
Str = Replace(Str, "* Sheet1", ") * Sheet1")
Cells(1, 1).Formula = Str

>>90
持論厨､乙

vbaってプログラムを他人に見られないように、コンパイルとか
ファイルにパスワードとかけるの？

>>93
よくわからんがプロジェクトのロックのことか？

そうです、プロジェクトの事です。

>>67なんだが、解決策ってやっぱないのかな？
2007はどうか知らないけど、2003では起こらない現象で、2010では起こる
2003から再計算の仕様変更とかその辺りのが原因なのかな
2010でネット上に同じような質問あるけど、解決しましたってのはないしね
画面をクリックしないとマクロの動作が終了しないってのはなんなんだろう
マクロの動作というか再計算で固まるっていう現象

フォームにボタンを置いて、ボタンのクリックイベントの中で
whileを使ったループ処理をしたいんだけど、ループ処理中に
ループを停止させたい場合ってどうすればいいの？

ループ中はフォーム側に制御が戻ってこないから、
停止用ボタンを作っても押せないからどうしたもんかと。

DoEventsってVBAにはなかったっけ？

トリッキーなコードを書こうと思ってる奴か、
トリッキーなコードが綺麗なコードだと思ってる奴じゃ無いと
綺麗なコードを書こうとしてトリッキーなコードを書いてしまうなんてまれ。

処理中に制御権をアプリ側に明け渡す事なんか良くある事じゃん

>>99
まず前提として
・コードが簡潔にまとまってる方が綺麗なコードである
・コードの量を（ある程度以上に）減らすとトリッキーなコードになる
というのがあると思う

こうやった方がコードが短くて簡潔だな、と思ってどんどんコード量を減らしていくと
ある程度のラインを超えるとトリッキーなコードになってくる
その加減が結構難しい。人によってもそのラインは違うだろうし

その前提はVBAで成り立つかなあ？C/C++でそれを言うなら、まあ納得だけどさ。
目的を達するコードを、C++とかだと、それこそ無数に書きようがあるから、中にはトリッキーなものも出てくる。
でも、VBAはそんなにバリエーションないと思うんだけどね。寧ろトリッキーなVBAのコードの具体例を見てみたい。

他人が見て理解してもらえるのが綺麗なコード
他人が見てイミフ、なんでこんなことしてるの？って思われるのが汚いコードじゃないの？

>>102
たとえば、整数 a が
31以上40以下の場合、1を引く
40より大きい場合、2を引く
という処理があったとして

何も考えないで
    If a >= 31 And a <= 40 Then
        a = a - 1
    End If
    If a > 40 Then
        a = a - 2
    End If

綺麗(俺基準)に書くと
    Select Case a
        Case 31 To 40
            a = a - 1
        Case Is > 40
            a = a - 2
    End Select

だが、トリッキーなコードを書くと
    a = a + (a >= 31) + (a > 40)
の１行でできてしまう

ありがとう。確かに、これはきめえわｗ
真が-1って共通認識をプロジェクトで共有できているなら使ってもよさげなんだが。
コメントで、注釈してもいいかも。
a = a + (a >= 31) + (a > 40) ' 条件が真ならば-1
てな感じ。

でもまあ、その程度じゃない？式中で代入は出来ないし、評価の短絡もない。
他の構文もそうそう別の簡単な書き方がある訳でもない。With使いまくりは勘弁な。

大昔のインタプリタなBASICだと圧倒的に速度差がでたんだが
今なら速度気にすることはあんまりないし（そもそもコンパイルで差が出ないかもしれん）
まあ使っちゃいかん類の書き方だと思う

>>104
うん、そうそう。

だから、綺麗なコードを書こうとしている奴が
> a = a + (a >= 31) + (a > 40)
なんてコードを書くかね、って話をしてるんだが、
なんか変な奴が一人まぎれてるっぽい。
そいつは、綺麗なコードを書こうとすると上のようなコードを書きがちだと思ってるらしい、

>>107
うん、そうそう。

>その加減が結構難しい。人によってもそのラインは違うだろうし
その為の極端な例だと理解できない、注意力散漫な馬鹿ほど口出ししたいらしい

シートに表示→ツールバー→フォームからボタンを設定したする時に
複数のボタンをまとめるフォームというかコンテなってないの？

>>92
図星だったってこと？さすがゴミだな

Excelで逆引き検索をしたいのですが、
コンボボックスで選択された文字を
セルにコピーする方法が分かりません。
ご教授願います。

サンプルです。
http://www1.axfc.net/uploader/Sc/so/264099.xls

>>90=>>110

>>106
VBAってPコードコンパイラ積んでた？案外全部コロンでつなげた方が速いかもな。

>>112
あれ？名前に90って入れなきゃいけなかった？
そんな意味のない返ししするなんて相当悔しかったんだね

>>111 Cells(1, 1).Value = ComboBox1.List(ComboBox1.ListIndex)

>>113
Pコードコンパイルかどうかはしらんが
デバッグメニューにコンパイルってあるからなぁ

Dim TaTe As Long
For TaTe = 3 To 99
Worksheets("sheet").Range(Cells(TaTe, 2), Cells(TaTe, 96)).Select
With Selection
.Replace What:=0, Replacement:=Worksheets("0").Cells(TaTe, 49).Value
99までは問題なく動くのですが100にすると
RangeクラスのReplaceメソッドが失敗しましたとエラーが出ます

>>116
そういえばあったか。コンパイルって結果をブックにでも保存してるんか？毎回開くたびに走ってるのかな。

>>117
100行目のどっかのセルに変なコードが入ってんじゃないの？

綺麗なコードで書くと言うのは、如何に可読性を高めて次回の改修作業をより行い易くする為に行うこと。
無論、処理コストとの兼ね合いもあるが今までのレスを見ていると
もっと根本的なクラス設計の話が出て来て然るべきと思うんだけどなぁ。
まず、>>104みたいなのは論外。型を何だと思ってるんだ。
ついで言うと、グローバル変数を指定して他のクラスから呼ぶのもやめれ。
きちんとそう言った他のモジュールと橋渡しになるエンティティを作ること。
設計の際にはどのクラスにどう言う役割と責任を持たせるか最初から考えて作っておくこと。
細い所で技に走ってちょこっとソース縮めてみても根本的な所がしっかりしていなければ
全体的にグダグダなソースになってしまう。

CTRL+スペースでchrが出て来るのに、実行するとCHRが無いってエラーが出て、
定義で調べても無いって言われるのは何故？

>>114

>>120
>綺麗なコードで書くと言うのは、如何に可読性を高めて次回の改修作業をより行い易くする為に行うこと。

持論厨乙

て言うか、VBA でクラス設計云々言うのはちょっと痛すぎ。

>>123
クラス設計云々はともかく、メンテナビリティは重要な要素だろうが

子供に部屋のかたづけとはまずは部屋のレイアウトをCADにおこして、かたづけのフローを書いてだな
とか言い出しかねないな。

ウチは大げさに捉えればそうしてる

エンティティとか役割と責任って言葉を最近覚えたんだろ。

外は暑いけど、暖かく見守ってやろうじゃないか。

綺麗なプログラムって話で、
ちゃんとしたクラス志向のオブジェクト言語の話なら解らんでもないが
VBAでの綺麗なコードって話で何言ってんのって感じだな

やっぱりな。他のオブジェクト指向の言語とかやった事無い奴は
設計が既に疎かになっているから次に進めないしここを突つくと顔真っ赤にして反論する。
テキトーに考えてテキトーに組んで、いい感じでスパゲッティーにするんだろうな。
まぁ、ここで色々反論してくる奴は、そんな基本的な事も分かっていない様だから、
オブジェクト指向の言語や関数型言語なんてまともに使えないまま一生を終えるんだろうな。

>>123
井の中の蛙乙
これは一般的に言われている事だ

使い分けって大事だよな。Cでもオブジェクト指向っぽく出来るけど、わざわざやらないだろ。そういうライブラリ使う場合は別として。
VBA向けのクラスライブラリでも作るっていうのなら、気にする必要があるのかもしれないが、少なくともVBAの世界では一般的じゃないな。

だから今話してるのはだな
部屋を片付ける=部屋を綺麗にする
だよね
例えばおもちゃを片付けるのをおもちゃ箱にしまうのか部屋の見えない所に隠してしまうのかの話で
どちらも部屋を綺麗にすることに変わりないがおもちゃ箱にしまったほうがまた遊ぶときすぐ遊べるってことだろ

そこに部屋を片付けるプランから考えるとかはまた別問題なわけで。

プログラミングにそれが大事なのは当たり前のようにわかってるよ。
ただ今はそんな話してないってだけじゃないのか？

マクロでシートを保存するとブックの名前も変わってしまうのですが、
マクロ実行中に保存以外の方法で元の名前に戻すことはできますか？

その保存するブックをどうやって開いているのかと
ブックを保存するマクロをどう書いてるのかを示して

>>131
> VBA向けのクラスライブラリでも作るっていうのなら、気にする必要があるのかもしれないが、
> 少なくともVBAの世界では一般的じゃないな。

継承とコンストラクタにパラメータが渡せないのがきついからなぁ。

この二つがサポートされてりゃまだそれなりの暮らすライブラリがかけると思うんだが...。

ブックの開き方というのがわかりませんが、マクロが有るブックでシートを保存しています
別のブックからデータを読み込んだりしますが、その時はファイル名は変わりません
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & tooshibango & ".txt", FileFormat:=xlText

>>131
VBA+クラスで検索
約 2,000,000 件 （0.17 秒）

VBA+classで検索
約 493,000,000 件 （0.20 秒）

まぁこれを見て、一般的でないと見るかどうかだけどな。

>>137
絶対的な指標になり得ないものを上げて判断を仰ぐのはペテンくさい。
ちゃんと他と比べないといけないよね。

C++ クラス
約 59,200,000 件 （0.18 秒）

VBA クラス ライブラリ
約 64,700 件 （0.19 秒）

C++ クラス ライブラリ
約 500,000 件 （0.06 秒）

あと、分かっててやってるんだろうけど、
検索使うときは対象絞るようにしないと、VBAのままだとVBにもヒットするよ。
VBでの話がしたい？なら該当スレへどうぞ。

そもそも何でそれを検索したんだ？クラス＝オブジェクト指向なのか？本当に？

>>136
SaveAsは名前を付けて保存だから、名前変わるのは当然だな
ブック名をどう使いたいか解らんが、名前をもとに戻す方法考えるより
保存するシートをマクロと別ブックにする方がいいんじゃね

>>138
>検索使うときは対象絞るようにしないと、VBAのままだとVBにもヒットするよ。

はあ？

>>138
お前こそ何がしたいんだよ。

「VBAでクラスライブラリを構築する」なんて概念こそがほぼ無いことだろ。
なんでわざわざ「ライブラリ」を付けて検索するんだよ。

VBAで.NETのクラスライブラリを使うことができることを考慮して検索すると、

vba "クラスライブラリ" -.NET
約 18,700 件 （0.34 秒）

しかも、1ページ目のほとんどが他言語のクラスライブラリの話だ。

> そもそも何でそれを検索したんだ？クラス＝オブジェクト指向なのか？本当に？

この流れでそれがわからないとか、馬鹿なの？

>>141
VBAでクラスを使うことが異端であると言いたいんだと思うよ。
きっとクラスを使ったことないんだよ。
便利な場面で使えばいいだけのことなのにね。
使ったことないから、いつ便利なのかわかんないんだろうけど。

エクセルVBAでクラス設計とかアホだろ
そもそもクラスはエクセルのセル、というかエクセルのブックがクラスなんだから、
それを最大限に生かせばいいだけの話。

エクセルのセル内容をほとんど使わないアプリとかは知らん。

クラス＝オブジェクト指向
よりも、
エクセル＝オブジェクト指向
という結びつきのほうが強い
バグは置いておいてくれ。これを言い出すとキリがないからな

なんにしろ普通は
データベース、特にアクセス(更に言えば普通は専用システム)でvbaを使い、データ整理
エクセルでデータを引っ張り出し、vbaでレイアウトの整理、出力
が基本

お前の中ではそれが基本なんだな

>>142
わざわざC++と比べてるんだから、異端か異端でないかじゃなくて、
他の言語と比べて一般的かってことだろ。
大体検索結果なんてものによって分母も違ってなんの参考にもならんのに、
ドヤ顔で結果を貼り付けるて、挙句意図も説明しないから、
結局訳が分からなくなる。
意見があるなら、それをまずちゃんと日本語で書くべき。

どうでもいいが、設計論やりたいならスレ立てるかなんかで余所でやってくれ

ここ最近の流れって、ちょっと真面目に読むと笑えてくる。皆それぞれ独自の認識してるんだ。
VBAのクラスはただの構造体＋メソッドだろ。多態もできないと言い切れるレベルなのに、オブジェクト指向って・・・（）笑
あっ、もちろんこれは俺の中ではこうだって話だから、皆さんはそれぞれ自分の中のVBA像を語ってください＞＜

>>147
こんなこと結構するけど。

Class1.cls:
Private WithEvents m_sheet As Worksheet

Public Sub SetWorkSheet(ByRef aSheet As Worksheet)
　　Set m_sheet = aSheet
End Sub

Private Sub m_sheet_Change(ByVal Target As Range)
　　MsgBox m_sheet.Name & "!" & Target.Address & " was changed"
End Sub

ThisWorkbook:
Private m_sheets As New Collection

Private Sub Workbook_Open()
　　Dim obj As Class1
　　Dim aSheet As Worksheet

　　For Each aSheet In Worksheets
　　　　Set obj = New Class1
　　　　obj.SetWorkSheet aSheet
　　　　m_sheets.Add obj
　　Next
End Sub

>>147
あと、多態に関しては、例えばこのページとか。
http://zebratch.blog.so-net.ne.jp/2009-04-14-1

それと、こんなページとか。
http://www.objectclub.jp/community/memorial/homepage3.nifty.com/masarl/article/excel-decorator.html

軽くググっただけだから、もっと良いページがあるかも。

RSSで読み込んでいるデータと固定値を比べて同じならBEEPを鳴らすようにしているのですが、
以下のソースで　（１）はなんら問題なく動作しますが、（２）はExcelファイル起動にRSSからの更新データ読み込み更新の有無のダイアログ表示後「更新する」ボタンをクリックして継続すると
実行時エラー１３：型が一致しません　と出て処理がとります。
VBAから再度実行すると普通に動きます。
考えたのですが問題点がよくわかりません。

（１）
For Each myRange In Range("d12:d21")
　 If myRange.Value = Range("b2") Then
　　Beep
　End If
Next

（２）
For Each myRange In Range("b2:b11")
If myRange.Value = Range("h23").Value Then
Beep
End If
Next myRange

対象となるセルはすべて、数値としてあります。
セルh23に固定値が入っています。

C++で言うと、それtemplate使えば簡単に書けるよとか、boost使えば簡単だよとか言うと
いきなりファビョりだす奴と行動が似てる

>>148-149
がんばってるなぁ、でも馬鹿みたいとしか思えない。

ボケ防止に趣味でやってるなら止めはしないけど。

セルがすごい複雑で優秀なクラス構造をしてるから、それを利用するという意見は少数なのか
もったいないなぁ

逃げることしかできないへたれ

>>152
同じ構造のシートで数十シート（可変）以上あるようなBookを読み込んで、
それぞれのシートに同じ処理を適用するような場合を思いつかない？

まあ、後は普通にクラスで実装した方が楽な場合は使うよ。
クラスなしにVBA用のxUnit実装してとか言われたら発狂もの。

>>154
なるほど！>>154さんは中卒なのですね(泣)
月収は16万ぐらいなのでしょう・・・
お互い大変ですけれども、頑張りましょう！
私も25万しかもらっていません(泣)
今年はボーナス無しです・・・

こいつ、ExcelでJavascriptが使えるようになったとしても、絶対に使わんだろうな
あ、Javascriptでオブジェクト指向なんて、とか言い出すかｗ

>>155
>それぞれのシートに同じ処理を適用するような場合を思いつかない？

そんなもん別に VBA でクラスなんぞ作らんでも作れるだろ？
まあ、がんばってクラス作ってくれてもいいんだけどね。

Excel 自体はそりなりにクラス構造が作られてるから普通に利用すりゃいいだけで、
VBA でクラス作らないといけないわけじゃない。
なので、>>153 とか何言ってるのか意味わからん。

ちなみにそれなりの機能を持つアプリで入出力が Excel の場合、最近は >>154 が
言うように C# で Excel 呼び出す方向に「逃げる」ようにしている。
でも、 Javascript だと、ちょっと嫌かも (w

自己解決しました。
ファイルを開いた瞬間は各セルの値は #N/A　でアサインされていないので、アサインされてから比較するようにしたらうまくいきました。
お騒がせしました。

A1の値を別ブックのシート1にコピー
A2の値を別ブックのシート2にコピー･･････
このようなマクロを作りたいのですが
Worksheet(変数).Selectのところでうまくいきません

うまいこといかないじゃなくてエラーメッセージとその付近のコードを晒せ

ユーザーフォーム上のコントロールの状態を記憶させておく簡単な方法ってない？
終了時にファイルに適当に記録するにしても、一発でチェックボックスの
状態の読み書きが出来るとかそんなのない？

>>161こんな感じです。コピーまでは動くのですが
Dim P As Integer
For P = 1 To 100
Workbooks("XXX.xls").Activate
Range(Cells(1, P), Cells(500, P)).Copy
Workbooks("YYY.xls").Activate
Worksheets(P).Range("D1").Select
Selection.PasteSpecial Paste:=xlValues
Next P
RangeクラスのSelectメソッドが失敗しました

workbooks(x)
で、xをsheetsのimdexのように使う用法ってまさかないんですか？
あるはずだよね？
どうやるの？
万一ないなら、代替えとしてどうやってbookを操作するの？

>>163
もしかして
"YYY.xls"へ 非表示のワークシートがあったりしない？
非表示のワークシートもにもインデックス番号がついてるから
それをSelect すると"RangeクラスのSelectメソッドが失敗しました"　になるけど

>>163
Worksheets(P).Select
Range("D1").Select

>>166
できました。ありがとうございます。
どこかのサイトにSelectはあまり使わないほうが良いと書いてあったのですが
繋げるのとSelectで分けるのとどう違うのでしょうか

>>167
Worksheets(P).Range("D1").Select
このコードはあくまで　セルをSelect　しようとしてるんであって
Worksheets(P)を　Selectしている訳ではありません
Selectされていないシートの　セルをSelectしようとしているので
エラーになる(ううむ ややこしい)

Worksheets(index)ってできないの？

なぜできないと思ったのかその根拠を示せ

まず、できないと思ってると考えた根拠を示すのが先だろ。
そもそも質問してるだけだ。

エクセルVBAでクラス設計とかアホだろとか言ってる奴は
EXCELが全てクラスで構成されている事なんか知らないんだろうな。
標準モジュールですらスタティックエリアに展開される静的なシングルトンのクラスだと言うのに。
それらの使い方や作り方をおざなりにすると言うことはアジャイル開発なんて全く念頭にないな。
そんな奴が作ったプログラムの改修作業に入る人は悲惨だな。

こらそこ難しい単語使わない

難しい単語なんて出てきたか？

>>172
半分くらいは言ってること正しいんだが､"クラス"の捉え方次第では的外れな主張になる
君が言ってるのは､プログラム言語一般でのクラス､でもここはVBAスレなので
VBAのクラスとして捉えると､標準モジュールどころかシートモジュールさえもクラスでは無いと定義される

特定言語でのコミュニティー(掲示板や開発チームなど)に入ったときに､その言語特有の概念や定義を理解せず
プログラム言語一般論で語り出しちゃう奴は何処に行っても疎まれ､チームでは役に立たず掲示板ではウザがられるだけ

そんな奴と一緒にチーム開発させられる人が居るとすれば悲惨だな

いいから設計論は余所でやれ

>>174
悪いがそんな受け捉え方なんてもので実際の本質が変わる様なあやふやなものでは無い。
持論を持ち出すのは結構だが、実際にそいつらの本質がクラスであるのは変わり様のない事実。
そして開発チームどうのと言う以前の問題。使われているのはそう言った性質を持ったアプリケーションなんだからな。
そう言ったウチの開発チームでは、とか、俺的には、とかそう言う細かい本質から離れたプライオリティの低い話を
あたかも本質として扱おうと言うのは「既に私の話は破綻していますよ」と言っている様なものだ。
そして、そう言った知識レベルの低いチームが一般的で無い組み方をしたプログラムを後に他のチームが改修に入り、
その時にはどう言う意図でそう組んだのか誰も分からなくなるなんてざらにある事。
要するに一般的な事の前に持論が来ちゃってるんだよな。
三流の下っ端プログラマとして終わりたく無ければもっと外にも目を向けるべきだな。

そもそも VBA って三流の下っ端プログラマ (=素人、MS 的にはエンドユーザ) 向けだと思うが。

ホントたのむからスレタイ読んで芯でくれ

>>176
お前らが三流なのはよく解った
プログラマ板にでも行け

>>158
> そんなもん別に VBA でクラスなんぞ作らんでも作れるだろ？

じゃ、クラス使わずに>>148と同等の処理ができるコード示して。

> まあ、がんばってクラス作ってくれてもいいんだけどね。

がんばって、というのがよくわからないんだけど。>>148のどこががんばってる？

> ちなみにそれなりの機能を持つアプリで入出力が Excel の場合、最近は >>154 が
> 言うように C# で Excel 呼び出す方向に「逃げる」ようにしている。

永続化の手段としてExcel Bookを使う場合の話？
俺が話してるのは、UIの手段としてExcel Bookを使う場合なんだが。

ユーザーフォームを一旦HideにしてからShowにする時に、
Hide時の位置に表示させたいのですがどうしたらいいですか

おまいら俺のくそきったないコード見て落ちつけよ（IEは描画できません＞＜）

http://www42.atwiki.jp/syugyou?cmd=upload&act=open&pageid=240&file=syk.html

>>180
>じゃ、クラス使わずに>>148と同等の処理ができるコード示して。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　MsgBox Sh.Name & "!" & Target.Address & " was changed"
End Sub

> >>148のどこががんばってる？

がんばってると言うか、はっきり言えばアホみたい。

>俺が話してるのは、UIの手段としてExcel Bookを使う場合なんだが。

C# からでも Excel の UI 制御できるよ。
君にできるかどうかは知らんけど。

何度言ったらわかる消えろ

>>183
うーん、そのコードを同等と言うならしょうがないね。もういいよ。

> C# からでも Excel の UI 制御できるよ。

UIを制御するんじゃなくて、UIとしてExcel Bookを使う場合なんだけど。

まあ「がんばって」C#でExcelのUI制御でもしてれば。

基本機能としてクラスモジュールが使えて、クラスを使うと便利な場面があるのに、
頑なに使おうとしないんだからもう平行線だね。
どこぞのstatic親父と似た匂いがする。

>>181
Me.Top と Me.Left の値をどこかに保存しておいて
Showする時に戻すとか　ちなみにその時に
Me.StartUpPosition = 0
じゃないと位置変更されないと思う

こういう時のためにすいとんがあるんじゃないか
誰かやれよ

>>187
> Me.StartUpPosition = 0
> じゃないと位置変更されないと思う

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

Windows8ではExsel　VBAどうなるの？どうせ変態仕様で継続されるんだろうと予測

vbaで外部ソフトを操作するプログラムを作ってて、ほぼ出来上がってるんだけど
ある1つのボタンだけvbaからのクリック動作を3回に1回くらいしか受け付けてくれません。

ググって見たら　WM_COMMAND　を使うようなページが幾つか見つかったんですが動作しません。

Call SendMessage(hnd_A_Button, WM_LBUTTONDOWN, 0, ByVal 0)
Call SendMessage(hnd_A_Button, WM_LBUTTONUP, 0, ByVal 0)

こんな感じでボタンをクリックしていたのですが、1つのボタンだけ素直に受けつてくれません。
ググッたページを見て

Call SendMessage(hnd_OYA_Window, WM_COMMAND, BN_CLICKED * &H10000 + GetDlgCtrlID(hnd_A_Button), ByVal hnd_A_Button)

こんな風にしたのですが反応しません。
ハンドルはスパイソフトで確認して間違えないのは確認しています。
何が間違えているのでしょうか？

よろしくお願いします。

>>185
>うーん、そのコードを同等と言うならしょうがないね。もういいよ。

え゛っ、どこか違うか？

違うなら、違いを示してくれよ。

>UIを制御するんじゃなくて、UIとしてExcel Bookを使う場合なんだけど。

プロパティもイベントも普通に使えるから UI として Excel 使う上で何の
問題もないわけだが。

まあ別に君に使えと言うわけじゃないから安心しなよ。

>>186
「クラスを使うと便利な場面がある」なら使えばいいと思うよ。

でも少なくとも、自信満々で出してきた >>148 なんて、わざわざクラス
使って20行近く書くよりより３行書く方が楽だと思わないか？

思わないとしたら、平行線でもしょうがないと思うけどね。

>>190
Visual Bacik for Apprikation になると思われ。

>>190
なんか卑猥だな> Exsel

え？

>>176みたいに恥ずかしい奴って､昔から見かけるよね
もしかして同一人物がずっと粘着してるのかな？

恥ずかしいってか、バカ相手にムキになり過ぎ。ほっときゃいいのに。

お前ら、質問に答えろや
お願いします。

水戸市民の俺参上

>>197
バカは言い過ぎ
新しいことが受け付けられない
お年寄りになっただけ

>>198
質問者の態度でかいしお礼も言えない子が多いからね

>>201
まぁこういうゴミクズに礼を言う必要はないからなw

いいからさっさと答えろグズ

>>203
ｗ

>>201
童貞のお前には聞いてない

>>200
>新しいことが受け付けられない
>お年寄りになっただけ

進歩の止まった VBA ってお年より向け言語だろ？
ひょっとして、VBA のクラス使いこなしてる俺すげーと思ってる >>148 さんですか？

>>202
生きるうえで礼儀大切だよ粗末にしてると本物のゴミクズになっちゃうよ

そういえばうちのおじいちゃんも
切符の券売機でよくまごついてるなあ

>>208
窓口に行って駅員に売って貰えばいいだろ

>>208-209
おまいらナイス！
実に素晴らしい例え方だわw
券売機(クラス)が使える普通の人は券売機でさっさと買って行ってしまえばいいし、
使えないおじいちゃんは窓口で買えばいいわな。

>>206
クラス使えるとスゲーなんて発想になるのは君だけじゃない？
ここにいるほとんどの人は、使えるけど状況に応じてあえて使わないだけだと思うよ。

自分専用ツールぐらいしかVBA使わないわー

券売機クラスってｗｗｗせめて関数程度だろｗｗｗ

券売機クラスってどういう構造で表現するのがいいんだ？
↑の例えでいくと人か機械かどっちかのインターフェースがあって、その下に発券のシステムがあるイメージ？
でも発券のシステムって、入力と出力が一対一だろ、ファイルに全対応を書き出しておいて検索しても十分だ。
特に好んでクラス使う例にはなりそうに無いな。

俺がVBAでクラスを使って良かったと思えたのは、シューティングゲーム作った時かな。
不特定多数の敵や弾を、その種類毎にクラス作っておいて、
発生する時にインスタンスをぽこぽこ作って、コンストラクタで最初の位置を設定して、
後はコレクションに格納して、インターフェース使ってポリモーフィズムでそれぞれの敵や弾毎に別れた処理をぐるぐる回す。

らくちんw

>>210
>券売機(クラス)が使える普通の人は券売機でさっさと買って行ってしまえばいいし、

こんなぼろい券売機もどきでなに言ってるんだ？

>>211
日本語ぐらいちゃんと読めよ...。

>>214
>コンストラクタで最初の位置を設定して、

引数ももてないコンストラクタでどうやって設定したのか kwsk

>>216
えっ？

>>215
御老体向けの券売機もどきも使いこなせない人っていったい・・・

ごめん、「御老体向けの券売機もどき」で満足してる人だったんだね。

>>219
満足とか意味不明。
無い機能は使えないし
ある機能は使えば便利な時に使うだけ。

君、自己満足の為にVBAでプログラミングしてるんだ。いい身分だねw

>>220
>無い機能は使えないし
>ある機能は使えば便利な時に使うだけ。

それを「「御老体向けの券売機もどき」で満足してる」って言うんだけど...、
日本語不自由な人なのか？

俺は、機能がなくて不満なときは C# に逃げるけどね。

>>221
あれぇ？
VS2010はプロフェッショナル以上のエディションなら直接EXCEL2010を.Net環境から開発出来るよねぇ。
古いのでやってるの？それともお金が無いの？
で、C#に逃げるって、それもクラス設計しないで作ってるの？
クラス図から直接コードに落とす機能も有ったりするのに？
それともやっぱりお金が無くて.NetFreamWorkだけ突っ込んでテキストファイルで一生懸命書いてコンパイルしてたりするの？w
ひょっとして、テスト環境とか作ったりリファクタリングする機能があるのも知らないんじゃないの？
俺はC#もVB.Netもやってるけど、スレ違いになるからわざわざ言わなかったのに。
そんなスレ違いの方向に持って行って何がしたいの？

攻撃方法変えて金持ってる事を自慢し始めちゃったよこの人

>>221がボロが出始めて話をそらし始めました

自分が満足どうのとC#の話振っといて、
突かれたらお金の自慢されたとかw
どうなの？古い環境や低いエディションで満足出来てるの？w

早く夏休み終わらないかなぁ

>>226
What's the difference?
Every single annoying person is a NEET.

両者引っ込みつかなくなってアホ丸出しなどーでもいい議論ははよ終わらせてくれや

済まん。本当は>>214と>>216とのやり取りで、>>216が少なくともObject指向のこと少しでも分かってたら
そんな質問は出て来ないだろうと言うことで、ろくすっぽ知らない事は分かってたんだ。
>>215と>>216はそのレスのタイムスタンプから同一人物である可能性が極めて高いと判断した。
そして>>221でC#に逃げるとか言ってたから、ちょっと意地悪してみたくなったんだ。
ちょっと大人気なかったな。そこは素直に謝らせて貰う。済まんかった。

>>222
一応 Professional は買ってもらってるけど、仲間内で使うちょっとしたツール作るだけに、Ultimate
(定価 160万) は、買えないよ。Office アプリは本職じゃないしね。

>そんなスレ違いの方向に持って行って何がしたいの？

いや今頃言われても...。
>>158 で2日も前に書いてるし、>>180〜 あたりの話は理解できなかったのかなぁ。

>>229
で、いつから VBA のコンストラクタにパラメータが指定できるようになったの？

>>230
そこで会話を交わしているのは俺じゃないし、実は>>214も俺じゃない。
ま、信じるかどうかはそちらに任せるけど、
今そっちのレスを読み返してみたけど、どっちも本当は互いの言いたい事分かっててあえて意固地になって
戦ってる様にしか見えないぞ。
後、余計なお世話かもしれないが金が無いならWindoswPhoneの環境を見ると、あれはまだBetaだがまだ日本語の本も出てないくらい本気で最新だ。
開発環境も無料だしな。データベースとのやり取りを行う時SQLを使う事もないし、
基本UIの項目から直接値を取る様な事もしない。
構造化言語からObject指向言語に移行した時に味わった苦しみを次はObject指向を開発している人達が近々味わうだろうと
思わせる一品だ。
スレチだからこの辺にしとくわ。じゃあな。

>>231
その関数自体の引数で渡せないなら他にどんな渡し方がある？
流石にここまで言えば分かってくれるよな？

>>232
> データベースとのやり取りを行う時SQLを使う事もないし、

笑うところ？
まさか、Uiltimate で C# とか VB.net 使ってて、Linq 知らないなんてことはないよねぇ？

>>233
はぁ、関数？ なにそれ。

まじで、さっぱりわからんから詳しく教えてくれ。

>>234
なんだ、LINQを知っているのに>>233みたいなのは知らんのか。
覚える順序が滅茶苦茶だな。なんか胡散臭いなあ。
LINQを使うと言う事は既にObject指向の範疇から外れているものなのは知っているよな。
で、LINQを使うと言う事は他にも色々知っていなければ出来ない訳だが、それらの内Object指向の範疇で無いものに
どんなものが有るのか、どんな働きをするものなのか教えてくれよ。
後、そこまで豪語するなら「基本UIの範疇から直接値を使う事もしない」って言うのも当然知っている訳で、
本当は>>233見たいなのも知ってて言ってるんだよなぁ先生。じゃなきゃそこまで豪語出来ないもんなぁ。
おっと、スレチ過ぎだな。じゃあC#板で待ってるからとっとと来て説明してくれよ。

板じゃないな。失礼。スレだ。

>>235
Linq の話なんてどうでもいいから、>>216 に答えてくれよ。

C#,.NETできますアピールもういいから

>>237
悪いがそこまで言われればどうでもいい訳には行かないなぁ先生。
あれだけ豪語してくれたんだから取り敢えず話を聞かせてくれないと
こっちも話す気になんかなれないのは分かるだろ？
説明してくれるのか、それとも本当にハッタリ君だったのか先にはっきりさせてくれ。
丁度いいスレ見つけたんだ。
【VB.NET】LINQ友の会【C#, C♯, C#】
http://hibari.2ch.net/test/read.cgi/tech/1202568694/
もうこれ以上このスレに迷惑掛ける訳にもいかないのも分かるよな？
じゃあ待ってるから

>>239
豪語？
「MS」「SQL 使わない」「 C#/VB.net」とキーワードがあれば、"Linq" ぐらいは
知識としてあるだろ。
Windows Phone でも C# で Linq 使えるのは当たり前で、わざわざ言うほどの
ことじゃないはずだから指摘しただけ。

俺は SQL 書けるから、Linq なんて使ったことないし興味もない。

> もうこれ以上このスレに迷惑掛ける訳にもいかないのも分かるよな？

>>216 は、VBA の話なのでここで答えてくれていいよ。

>>240
君、面白い事いうね。

＞「MS」「SQL 使わない」「 C#/VB.net」とキーワードがあれば、"Linq" ぐらいは
＞知識としてあるだろ。

平たく言うと、そのキーワードで今ググったって事だよね？
そう言うのは知識とは言わないよね。
で何、
＞笑うところ？
＞まさか、Uiltimate で C# とか VB.net 使ってて、Linq 知らないなんてことはないよねぇ？

何でLINQとエディションが関係有るのか説明して欲しいな。それと
Uiltimate？何でUiltimateだと思ったのかな？

＞一応 Professional は買ってもらってるけど、仲間内で使うちょっとしたツール作るだけに、Ultimate
＞(定価 160万) は、買えないよ。Office アプリは本職じゃないしね。

本当にProfessionalを持っているなら>>222で挙げた機能は、実は全て入ってる事知ってる筈だけど。おかしいねぇ。
MSDNのページででも調べちゃったのかな？
君はハッタリ君な上に嘘付きなのかな？

これらの事から言える結論は、君はC#やった事が有るとは到底俺には思え無いんだけど。
やっぱりちょっとC#のスレ来てちょこっとC#やってたってのを証明出来る様なコード書いて俺を納得させてくれよ。
逃げ回ってばかりでこのスレに迷惑掛け続ける訳にもいかないだろ？

お前らスレ違いだから下らん論争は他でやれ
ここは質問スレだ

>>242
外でやると言ってる訳だが、ハッタリ君が逃げ回って拒絶しているんだﾆﾝﾆﾝ

>>243
だったら放置しろ屑
弱いもの虐めすんなって小学校で教わらなかったのか

いいだろう。今日は命名負け犬ハッタリ君の目出度い日だからこの辺にしておこう。

>>241
> 本当にProfessionalを持っているなら>>222で挙げた機能は、実は全て入ってる事知ってる筈だけど。

本当におかしいねぇ、俺が使ってる Pro. には、「クラス図から直接コードに落とす機能」なんてないんだけど。
君の Ultimate にはあるんでしょ？ Ultimate しかないしねぇ、その機能。

>>244
ごめん、ハッタリ君な上に嘘付きで MSDN のページも調べられない情弱を虐めてしまった。

>>222 で、あまりにもアホなこと書いてるから、ついつい遊んでしまった。(w

>>234 の Ultimate にも、食いついてくれるし、言うことのないアホっぷりだったから、
さすがにもう出てこれない思うけどね。

# よくよく見たら、Ultimate の綴りが所々間違ってるな...。

おまいら水遁と土遁の刑な

ハッタリ君は茶かして逃走。
以後、ずっと負け犬ハッタリ君のレッテルは貼られ続けられるなw

忍者ハッタリくん

>>249
あれ？ >>246 にはレスしないの？

まあさすがにできないよな、Visual Studio の比較ページ見たらすぐわかることだし。

> 以後、ずっと負け犬ハッタリ君のレッテルは貼られ続けられるなw

自己紹介乙。
あっ、情弱ハッタリ君のほうがいいんじゃないかな (pgr

粘着質きも

早く夏休みなんて終わってしまえ

オフでもネットでもキモがられて生きてて楽しいのだろうか

>>246
>>247
>>251

忍者ハッタリ君　今日も大嘘ハッタリがバレるの巻
ttp://iup.2ch-library.com/i/i0391455-1313301826.jpg
ttp://iup.2ch-library.com/i/i0391454-1313301826.jpg
ttp://iup.2ch-library.com/i/i0391453-1313301826.jpg

さて、もう心残りはないだろう。
大嘘付きながら散々逃げ回ってこのスレに迷惑掛けた事をみんなに謝って
とっととＣ＃スレに来い。

次回予告
今度はＣ＃やってないのがバレちゃったよの巻

ニンニン

XMLを使ってwebページを直接ダウンロードすることってできますか？

正確にはファイルに保存するところまでしたいです

XMLを使うってのはどういう意味？

ページの情報を読み込んでそれを保存するってことです

>>255
まだやってたのか
お前のせいで
自殺者が出るんじゃないか？

今となっては>>251が痛々しいな

>>260
それのどこにＸＭＬを使うんだ？

>>255
すごいな、この人。
> テキストファイルで一生懸命書いてコンパイルしてたりするの？
なんて豪語しながら、いまさらクラスダイアグラムを出してきたよ。
クラスダイアログラムだと、ロジック部はどうしてるのかなぁ？
当然テキストで一生懸命書いてないんだよね。まあ、書くほどのロジックがないのかな (w

# クラスダイアグラムは使ってるバージョン管理システムと相性悪いからマジで忘れてたわ。
# コード生成といってもクラス定義だけだから、たいして効率あがらないし。
# そもそもいまさら UML 以外でクラス図ってどうよ。

>>263
お前もうやめといたら？
見苦しいしただの恥の上塗りだよ。

>>255
> 散々逃げ回って

あれ？ 散々逃げ回ってるのは、君でしょ？

>>216 の回答を書いてくれないかなぁ、VBA のスレなんだからみんなの役に立つと思うよ。

あと C# スレに来て欲しけりゃ、向こうでネタ振っとけ。

>>257
XML って、msxml のこと言ってるのか？

であれば、

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaXMLHTTP.html

とかかな。

>>264
だね。オブジェクト指向言語はクラスの設計がキモで、基本となる所の
ひとつひとつのメソッドのロジックはそんなに長くなるもんじゃないし、
長く作る人はへたっぴだってJavaやってる先輩に聞いた事がある。

このスレって､なんで俺より上位の奴が居ないの？
世間から見たら､俺なんか中の下か下の上くらいなのに
ここにはその下しか居ない

>>265
ネタむこうで振ったら向こうの人が先に答えたりするし、
ネタ振ってもまたググって適当に答えられてのらりくらりと逃げられても意味ないでしょ？
だから前から言ってる>>241の通りでいいよハッタリ君。
どんどんボロが出て来るし、スレ違いでみんなに迷惑掛けるし、引き際も知らないし、本当に見苦しいねw

>>267
うわぁ・・・
ハッタリもここまで来るとネタでもキモいね

頭悪くてごめん、>>263の言い方だと、
上のバージョンだとクラス図の中にロジック部分のコードが書けたりするのか？
前からクラス図からコードが落とせるかってことが論点だったと思ってたから、
違ってるなら何で今頃と思ったんだが・・・
横槍ごめんな

>>266
はいはい、短いからどうしたの？
書かないといけないのは変わらないだろ。
はぐらかしたい気持ちはわかるけど、それこそ「見苦しいしただの恥の上塗りだよ。」 (w

>>268
>ネタむこうで振ったら向こうの人が先に答えたりするし、
>ネタ振ってもまたググって適当に答えられてのらりくらりと逃げられても意味ないでしょ？

結局どうしろと？

>だから前から言ってる>>241の通りでいいよハッタリ君。
>> 証明出来る様なコード書いて俺を納得させてくれよ。

書いても、ググったって言って、納得しないだろ？

そもそも C# の話なんてこのスレではどうでもいいから、>>216 に答えてよ。
それとも、まだ逃げ回るの？

>>270
申し訳ない、俺も Ultimate は触ったことないので、実際のところはよくわからない。

ただ、今評価している IBM Rational Rhapsody なんかだと、クラス図 / 状態遷移図 から、
その状態遷移を実現するコードを自動生成できるし、そのコードがシーケンス図通り動くか
を検証できたりするので、Visual Studio でもそれに近いことはできるとのではないかと思う。

ソフトの種別によるけど、うちの会社がやっているような用途だと、ロジックの多くを状態遷
移図で表現できるので、それなりの効果が見込めると踏んでいる。

なお、細かいコードは、その状態遷移図の中に人手でのコーディングが必要。

>>272
C#の話は元々、君がVBAから逃げる時に使うと言う話から起因しているからね。
いつもやってる通り普通に書いて
納得させてくれればいいんじゃないか？

>>272
＞書いても、ググったって言って、納得しないだろ？

それは前科が有るから仕方ないよね。

奴はUltimateじゃなくてUiltimateなら持ってるかもしれんぞ
自慢げに連呼してたからなw

Accessのカレンダーコントロールを使ってる場合、Access2007ランタイム
ttp://www.microsoft.com/downloads/ja-jp/details.aspx?FamilyID=D9AE78D9-9DC6-4B38-9FA6-2C745A175AED
をインストールしてもらえばカレンダー機能が使えるようになるの？

>>274
>いつもやってる通り普通に書いて
>納得させてくれればいいんじゃないか？

>＞書いても、ググったって言って、納得しないだろ？

>それは前科が有るから仕方ないよね。

前科？ はぁ、どこのことを言ってるのかレス番具体的に示してくれ。

あと、なんで C# の話はぐだぐだ書くのに、VBA の話である >>216 は無視するの？

>>275
>>247 に間違えたって書いてるんだから、許してくれよ。

>>240-241
＞＞「MS」「SQL 使わない」「 C#/VB.net」とキーワードがあれば、"Linq" ぐらいは
＞＞知識としてあるだろ。

＞平たく言うと、そのキーワードで今ググったって事だよね？
＞そう言うのは知識とは言わないよね。

そう、知りもしないのにあんな豪語垂れてた訳だから、
ちゃんとC#で作ってるって証明してくれないとそれ以上の話はする気がしないと
前にも書いただろ？
記憶力無いの？

>>278
>そう、知りもしないのにあんな豪語垂れてた訳だから、

C# で DB 使う奴なら、Linq の概要ぐらいいちいちググらなくても知ってると思ってたけど、
キーワードって書くと Google しか思いつかない奴もいることを学んだよ。(w

# て言うか、こんなことで人を前科者呼ばわりか。相変わらずすげー奴だな。

>ちゃんとC#で作ってるって証明してくれないとそれ以上の話はする気がしないと

だから、そんなお前に証明しようがないだろ？

できないこと言い続けて、>>216 をごまかす気なの？

しかしIDなしコテなしでよくバトル出来るよな、こいつら

馬鹿が二匹しかいないからこそ、齟齬なく相互認識できるんだろうけど

この煽り口調の馬鹿なんとかならないのか
はぁ・・未成年はネット禁止にするべきだって気持ち分かるわ・・

>>279
>>232の前に事前にそのキーワードを出してましたってかwエスパーかよw
ほんっと見苦しいよな。

VBAで出来ない事が有ったらC#に逃げてたんだろ？
だったらその様に普通に書いて証明すればいいって何度も言わせるなよ。ボケ老人かよ。

それで証明出来れば>>216の話をしようって言ってるだろ？君が逃げなければ話は進行するんだよ。

>>282
>だったらその様に普通に書いて証明すればいいって何度も言わせるなよ。

書いたらぐぐったというだけだろ？
それこそ何回も言わせるな。

>それで証明出来れば>>216の話をしようって言ってるだろ？

もういいよ、証明できないことを要求して、逃げるんだろ。

まあ、VBA のコンストラクタ (Class_Initialize) にパラメータを持てないことも知らずに、
VBA のクラス使いこなしてるなんて恥ずかしくて答えられないわな。

でもさ、VBAやAPI呼び出しで
できなくてC#でできることって
どんなことがあるんだろ

>>283
何だ、結局逃げたな
さすがハッタリ君だ

>>284
VBAからも.NET FrameWorkの機能呼び出せるしな

>>284
クラスに関して言えば、>>135 にも書いたけど、VBA のクラスは...

> 継承とコンストラクタにパラメータが渡せないのがきついからなぁ。

と思う。

言語仕様的には、Generic / 例外 とかかな。

>>285
はいはい、>>214 のハッタリにはかなわないけどね。(pgr

>>255
死ねキチガイ

>>265
msxmlのことでした
そのページのはソースを変数に格納してるんだけどそうじゃなくて

もうmsxmlじゃなくてもいいので
webページ丸ごとダウンロードして同じ階層ににあるhtってフォルダの中に保存したいです
拡張子はなんでも

>>289
>そのページのはソースを変数に格納してるんだけどそうじゃなくて

変数の内容をファイルに格納することもできないレベルなのか... orz

>webページ丸ごと

Web ページって複数のファイルから構成されてることは知ってる？

msxml でなくてもいいなら、IE でやればいいんじないかな。
http://oshiete.goo.ne.jp/qa/4253824.html

半端にプライドの高い馬鹿が延々と場違いな争いを繰り広げる夏休み

>>216
本当にそんな大したことやってるわけじゃないんだけど、
来てみたら何でこんなに話が大きくなってるんだ？
俺、そんな変なこと書いたかな・・・。
>>233の人の
「その関数自体の引数で渡せないなら他にどんな渡し方がある？」
って言うフレーズから、この人との認識とは一致してるっぽいけど
ごめん、ヘタレだから怖くて答えられないやw
>>233の人には答えてもらって、俺の作りが変じゃないっていって欲しいけどね。

GREEのコミュニティのトピックに自動書き込みできるVBAを組んでるんだけど、さっぱり分からん

<textarea name="thread_msg" rows="5" style="width:98%" cols="5000"></textarea>

ってのがフォーム部分のソースで

objIE.Document.all("thread_msg").Value = "入力するコメント"

って記述したら始めの２，３回はちゃんと動いたんだけど
その後に送信ボタンを押す記述を加えたらエラーで動かなくなって
追加した送信ボタンを押す記述を削除してもエラーで動かなくなっちまった。

そもそも記述が間違ってる？

ステップインで一行一行実行するとSendMessageが送れるのに
普通に実行すると送れないってどういう事？

いや、始めからツールバーにある再生ボタンを押して実行してたんだ。
始めはちゃんとフォームに文字がセットされたのに、今は何故かエラーで動かず。

パソコン再起動したら再度エラーなしで動き出した
なんなんだ

連投ごめん

なんかIEを再起動したらエラーが解決する事が分かったわ
起動済みIEを発見する記述に問題があったっぽい

ｽﾚ汚してすいませんでした

>>292
大したことやってないし、認識も一致してるっぽいのに

具 体 的 に は な に も 書 か な い

もういいよ。

どなたか>>294に答えてくだしゃー

クラス必要無いって人がいるみたいだけど、カプセル化とか、オブジェクト自身がデータとメソッドを持ってるとか、
多態性（もどき）が使えることとかをメリットとしては見てないの？

俺は必要ないとは思わないけど､そのメリットを認識していても
そのメリットを必要としていなければ､クラスも必要ないって話になるのでは？

>>300
>クラス必要無いって人がいるみたいだけど、

そんなやついたっけ？

>>302
ん、いないの？
詳しく読むのだるいので、ざっと読んで「クラスいらん」って人がいたと思ったので。

>>301
> 俺は必要ないとは思わないけど､そのメリットを認識していても
> そのメリットを必要としていなければ､クラスも必要ないって話になるのでは？

え、そういう話だったの？
ただ単に自分がそのメリットを享受できるようなコンテキストに出会ってないだけって事か。

まぁメリットデメリットを理解した上でクラスが不要というのはあり得る
vbaはエクセルに対してはメソッド程度の存在だからな
ただそれをどこまで理解しているかだな

不要ということは、クラスモジュールがあるVBAという言語体系は、設計そのものがあやまりだったということ？

>>305
> vbaはエクセルに対してはメソッド程度の存在だからな

そう？
上の方で出てきたのと似てるけど、VBAのクラスはEvent発行者になれたりする。
VB6でも同じ事ができて、かなり強力（いまだにVB6改造案件がかなりある）。

つか、デフォルトで揃ってないデータ構造が必要なときは、良くクラス使うけど。
木構造とか、グラフ構造とか、スタックとかでもクラスのが楽。

>>306
個人的にはあやまり、とは言いたくないです。私もお世話になった。
>>307
vb6は何だかんだでキュ雨力、でも嫌われれた
羨ましシイ
>>308
ベッの言語使ったほうがいいんじゃねか

>>294
SendMessageの後にDoEventsとか入れてみたら？
SendMessageはメッセージュキューに積まないからそれでいけるか微妙だけど

class使わなきゃCollectionに入れられないじゃん

クラス要らない派ってもしかしてDictionaryとか自分で実装してんの？
Excel上のデータ管理するならDictionaryは必須だと思うけど
なんであるもの使わないかな
車輪の再発明好きか
バグ入り込みやすいし周りはやめて欲しいと思ってるんじゃない？
個人的にはTypeより使い勝手いいと思う
くだらない喧嘩でレス消費するのやめて本題の質問応答に戻ろう
ここはそういうスレだよ

>くだらない喧嘩でレス消費
しへぇ

>>312
>くだらない喧嘩でレス消費するのやめて

くだらない持論を披露するスレでもないよ。

>>312
どういうクラス作ってるの？
Dictionaryとかはエクセルで実装してる範囲内では使ってるけど
わざわざクラスは作るまでもない

ｃ＃の議論が終わったら今度はクラスの議論か。 w

ところでなぜWordってみんなVBAを活用してないの？
できるとこはできるみたいなんだからもったいない。

自分もやりたいけど大型書店にも「Word VBA」みたいな本が1冊もないからどうしようもない。

>>317
wordって一回書式作ったらそうそう変えること無いしなぁ
むしろどういうふうに活用してるか教えて欲しい

>>319
写真が大量(100以上)あって、
それを文章とともに作ってる書類がある。

文章を追加すると当然レイアウトがくずれる。
しかし例え文章を追加してもレイアウトを自動的に調整してくれるマクロが欲しい。

>>320
くずれる、の崩れるがなぁ
100ぐらいなら手作業のほうが早いんじゃないかっていう

じゃ500だ。

じゃあってなんだよw

楽だから増やせばいいとか
どこのブラックの上司だよ・・・
あれはちょっとトラウマだった

Dim sry() As String
Dim server As String, ita As String, dat As String
Dim hdate As Variant
Dim y As Integer

Range("A:A").Clear

Set http = CreateObject("MSXML2.XMLHTTP")

server = "hibari.2ch.net"
ita = "tech"
dat = "1312435844"

http.Open "GET", "http://bg20.2ch.net/test/r.so/" & server & "/" & ita & "/" & dat & "/", False
http.Send

hdate = StrConv(http.ResponseBody, vbUnicode)

sry = Split(hdate, vbLf)
y = 1
For i = 0 To UBound(sry)
Cells(y, 1) = sry(i)
y = y + 1

Next i
Set http = Nothing

こんな感じにbg20.2ch.netからこのスレのdat?を取得してA列に表示する奴作ったんだけど
Excelを終了しないと取得したのが変わらない、どうしてだよ

あと2chでインデントってどうやんの

>>325
コード見てないけど、今朝鮮人のおかげでkamome鯖が落ちてる
鯖落ち対策とかしてるかの

いや鯖は関係ないと思う
前から終了しないと最新のが取得できなかった

っていうかちゃんとhibari.2ch.netとかからdatを取得してみたいんだけど
リクエストの飛ばし方とか差分取得がさっぱりだわ

>>328
すまねぇ、この板だったな
http.Open "GET", "http://hibari.2ch.net/tech/dat/1312435844.dat", False
これじゃだめか？
むしろbg20とかどこの鯖かよくわかんねんだけど

あと差分取得は
http://info.2ch.net/wiki/index.php?monazilla%2Fdevelop%2Faccess
のrangeがどーたら
俺も大昔vb.netで2chブラウザ作ったことあるが、
通信部分はまるまるコピペだったな
差分取得も面倒で実装しなかった

>>330
bg20はバーボンに掛からないからやってたんだけどそれが原因だったか
ってかこの鯖どういう仕組みなんだよ、ブラウザで更新したらちゃんと取得できてるのに

http://bg20.2ch.net/test/r.so/hibari.2ch.net/tech/1312435844/dat
だと
短パンマン ★<><>2011/08/16 01:16:54 ID:TanpanM<>いろいろあるさ ＠bg r.so ver 2008/02/19<br>ERROR = 5656 <br>(e_mes = [888 buf=HTTP/1.1 302 Found]) <br> <>名古屋はエ〜エ〜で ♪
って返ってきてるね。302ってなんだっけ。なんでもいいや
>>326
ユニコードで半角スペースでいけたと思う
じゃなきゃ全角スペースが手っ取り早い

最後datは要らない

実は朝鮮人のVBA砲だった

んなもんどこにでも落ちてまんがな

>>332
なにが忍法帖だよこの野郎。
2chにどっぷりはまってそうでダサくてかっこ悪い。

VBAのファイルって、単独で配布できるの？

>>338
アドインにすれば配布できる。

>>309
> ベッの言語使ったほうがいいんじゃねか
逆に聞くけど、木構造とかスタックとかが必要になったとき、態々別言語でそこだけ実装してんの？

作ったマクロをショートカットで使えるようにしたく
試しにマクロの記録で作ったコードを見たら
' の注釈文の中に使用キーが書いてあったから
そこで設定するのかと思ったら
実はこれはあくまでも注釈であり
ここを変えても反映されないし自分が作成したマクロにそう書いても使用できない。
なので実際はわれわれの目に見えないところで
ショートカットキーが登録されているよう思われる。

どうやるの？

>>341
Alt+F8->Option

>>338-339
エクスポートすれば､アドインにしなくても単独で配布できる

つーか､アドインはVBAのファイル(モジュール)の単独配布では無いだろw

.bas

>>314
俺だけの持論てことはもしかして>>314は
「単価、製造元」の情報を「製品名」をキーとして連想配列したい場合
自分で連想配列を実装しちゃうって事？効率悪すぎね？
俺なら
　Public 単価 As Long
　Public 製造元 As String
だけ定義したデータクラス作って商品名をキーにしてDictionaryに入れちゃうけど

俺ならADODBを使う

「持論」厨は相手にしない方が良いよ

>>347という持論

俺ならどこぞのシートに製品名、単価、製造元の列つくって書いとく

で、毎回O(n)になると

連想配列厨はワンオフのしょうもないクラスを作った

一方、>>349はワークシートに書き込んでVLOOKUPした

>>351
>>350

ケースバイケース。
実にくだらん。

クラスに相当なコンプレックスを持ってる奴がいるな

VBAのクラスの使い方さっぱりだわ

変な質問ですみませんが
Sub a()
If Range("A1") = "あ" Or Range("A1") = "い" Then
MsgBox ("a")
Else
End If
End Sub
と、if文でorを使い複数条件を指定する時
If Range("A1") = "あ" Or "い" Then
では型が一致しません、と出てエラーになります。
いちいちRange("A1")を指定しないと駄目なのでしょうか？

駄目
演算子の優先順位が理由

そんなことより
Else
End If
これelseいらなくね？

>>333のレスをコピーしてRange("A1")に貼り付けて
Range("B1") = Range("A1")
ってやったら#VALUE!ってセルに表示されて代入された値も#VALUE!なんですけどなんでですかね

.valueつけたら表示されたわ
なんでこれ省略したらいかんのかね

Rangeのデフォルトプロパティがvalueじゃないから

デフォルトってValueじゃなかったっけ？

Excelがやってる日付解釈関連の変な処理のバグだね
エラー2015

>>345
>>314 ... 理由は >>353

エクセルVBAを使ってWEBから数値を取ってきて貼り付けるってことはできませんかね？

>>364
クラス使わないって言ったやつにこういう場合はクラス使うだろって例出しただけなんだけど
ケースバイケースなんて当然だろ
お前ずっとクラス使わないって豪語してるヤツだろ
攻撃されて悔しいからって重箱の隅突こうとして外しまくりで自分で空しくならない？

VC++からExcelを操作するよりもVBAで書いた方がExcelのver違いによる
動作不良は起きにくいんでしょうか？

VC++からはタイプライブラリとか使用せずShellExecuteで
Excelを立ち上げる処理だけして後の処理はVBAに
任せるみたいな方法はver違い克服に有効？

外部からだとWorkBookのOpenですら引数の個数違ったりするから色々調べたり結構めんどいと思う。
それと解放忘れでExcelプロセスがゾンビ化したりもあるからVC++等で使用する場合は注意が必要ですね。
やっぱりExcel+VBAでやった方が親和性的にもよろしいかと。

C#の後はC++か・・・
その内ILとか出て来そうな勢いだな

>>365
VBAで株価データを取ってくるなんて作業なら毎日やってる

>>370
やりかたおしえて

>>366
>クラス使わないって言ったやつに

そんなやついたか？

勝手に敵作って一人相撲乙。

>>372
m9(^д^)

連想配列厨はクラスを使う良い例が出せないセンスの無さを、
「クラスを意地でも使わないやつがいる！」
と脳内変換することで防衛機制を発動しているのです

こいつ何にでも粘着するな
分かりやす

こないだのハッタリ君とか呼ばれてた奴じゃね？

呼ばれてたってか、お前ともう一人の馬鹿が暴れてただけだろw

>>374
そもそも何で例なんか必要なんだ？
教えてもらわないとわからないのか？
お前、C#とかC++やJavaでクラス抽出できないの？

クラスを作ってDictionaryにぶち込むって書いてた人がいたけど、それって毎回データをファイルから読んでるの？
VBAのクラスの生成コストがどんなもんか知らないけど、良く利用している人の感覚からすると速度ってどんなもんなの？
ケースバイケースなんだろうが、DBを毛嫌いする理由もないよな。Excelからじゃ使いにくいって考えかもしれないけど。

>>379
もはや支離滅裂。
言いたいこと整理しろよ。

>>379
なんでDBの話が出てくるのかわからないけど、木構造が必要になったときとかにクラスでデータ構造を
表現すると便利だよねって例がわからない？

>>379
あ、それとDictionaryが便利なのは、ハッシュ構造だからだよ。

連想配列厨がただ一匹暴れている微笑ましい光景はいいんだが、
いいかげん連投レスがうざいんでコテつけてくれないか>>380-382

お前が付けろ
NGするから

>>383
みんなは、お前一人が暴れてると思ってるよ。

マクロで縦5〜497までの繰り返しで
Gが空白ならそのまま、何か入っていればA~Gを水色に染める
ってどうなりますか？

>386
VBAじゃなくても、条件付書式ではどうですか？

>>387
それでも大丈夫だと思います！
やり方わかりませんが･･･

>>387
その枠だけは色を変えれる様になりました
ありがとうございます

>386,389　今後は
Excel総合相談所 97
http://hibari.2ch.net/test/read.cgi/bsoft/1304307841/l50
で質問することをお勧めします。ついでに、他のセルの内容で条件付書式を設定するには
http://turedure.cocolog-nifty.com/log/2008/06/excel_e3d1.html　あたりを参考にどうぞ

こっちだった
Excel総合相談所 98
http://hibari.2ch.net/test/read.cgi/bsoft/1312896741/l50

>>390,>>391
誘導から何からありがとうございます

エクセル2007でwindowsXPです

ブックをセーブする時に時々
「共有違反のため保存されませんでした」
というエラーが出ました

ググッたら
校閲→ブックの共有→複数のユーザーによる同時編集と、ブックの結合を許可する
にチェックを入れればいいというのが見つかったので、そうしました。

それでいまのとこ「共有違反のため保存されませんでした」は出てません。

そしたら、今まで何年も問題無く使えてた自作のマクロを使おうとした時に
「このコマンドは、共有ファイルで実行することはできません」
と出て使えないんです。

で、ググッたら
「複数のユーザーが同時に編集する（ブックを結合する）」のチェックを外せばいい
という事でした。

結局どっちかを諦めるしかないんでしょうか？

共有を外すっていう選択肢はないの？

どっちも諦めたら考えてる手間が省けるよ

>>394
共有を外すっていうのはどうすればいいんですか？

ネットワーク上のファイルなのこれ

>>397
いいえ。普通にHDにあるブックです

>>393
>校閲→ブックの共有→複数のユーザーによる同時編集と、ブックの結合を許可する
>にチェックを入れればいいというのが見つかったので、そうしました。
まずこれ対処間違ってるから
Officeのバグなので「時々」出るくらいならそのままパッチを待ちましょう

>>399
はい。ググった時にもバグという記述があって、とりあえずこれでいけるって書いてあったのでそうしてました。
これ間違ってたんですね。チェックはずします。

セーブ失敗するのは、たまになのでこのまま使います。
ありがとう。

vbaでm4a(AAC)って再生できますか

できます

関連付けられているアプリを使ってっていうことなら出来る、、、、、、、、、、、ような気がするw

A列だけを使って行がたくさんあるシートがあります。
これをメモ帳の形式(つまり拡張子txt)で文書として保存するには
どういうVBAを書けばいいでしょうか？

Word VBAのスレがないからここで書くけど

WordのVBAって、マクロの自動記録の機能を使って研究しようと思ったら
マウスカーソルの下にテープのような小アイコンが出てきて
マクロに記録したい「右クリックで使用できる機能」や「文字を選択する機能」などが全く使えないじゃないか。
そのため研究すらできやしない。
これはどういうこと？
そもそもこれじゃなにも記録できないから自動記録の意味がないじゃん。

右クリックがダメならメニューから使えばぁ？

>>404
とりあえずマクロの記録
名前を付けて保存でテキスト選んで保存してみれ

WordのVBAは腐ってるからないものと思ったほうがいいよ

大文字小文字を区別してデータの個数を数えたいのですが、

関数なら
=SUMPRODUCT((EXACT(A1:A100,A100))*1)
と書く場合を

VBAで書くにはどうしたら良いのでしょうか？
（Application.WorksheetFunction.SumProductの使い方？）

.Formulaに関数を書くのではなく直接求める方法を教えて下さい。
よろしくお願いします。

OSはXP、EXCELのバージョンは2003です。

"もしアクティブセルがB列にあるならアクティブセルに○と記入"

これのやり方お願いします

間違ってても責任とらん


If ActiveCell.Column = 2 Then
ActiveCell.Value = "◯"
End If

どうでもいいけどみんな最初は入門サイトとかでColumnWidthとかRowheightとかを先に覚えてから
後でColumnとかを知るよな

>>411
どうも

た〜くさんあるセルの文字列を連結して
それを別の1つのセルに入れたいんだけど
この場合はどの関数を使うの？

>>414
CONCATENATE 関数だけど普通使わないかなぁ
& で いけるから

>>415
=A1&A2&A3
程度ならいいけど
=A1&B1&C1&D1&E1&F1&G1&H1&I1&J1&K1&L1&M1&N1&O1&P1&Q1&R1&S1&T1&U1&V1&・・・・
とどんどん続く場合は？

>>414
VBA 使うしかないみたい。
http://www.relief.jp/itnote/archives/001342.php

>>414
>>2を256回読めば答えが出ると思うよ。

For n = 1 to m
　　str = str & Cells(1,n)
Next n

cells(2,1).Value = str

こんな感じじゃいかんのか？

>>419
頑張ってVBAなんて使わなくてもできるだろ。

419のをコピペしたらコンパイルエラーなるで

>>421
当たり前だろ。全部答え乗せる馬鹿いるかよｗ

Function link(myRng As Range) As String

Dim n As Object
Dim x As String

For Each n In myRng
x = x & n.Value
Next n

link = x

End Function

これ標準フォームに貼ってセルには
=link(範囲)
これで連結されるはず

VBAで
指定したフォルダ内の全ファイルのファイル名を
A列に1列にならべるにはどうすればいいですか？

>>424
つ>>2

指定フォルダ内の全ファイルを
A列に1列にならべるにはどうすればいい？

>>426
VBAで書けば出来るよｗ

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
ここ見て理解できなかったらあきらめたほうがいい

>>426
cd 指定フォルダ
dir /a-d /b > temp.txt

temp.txt を Excel で読む。

VBAに限らず、CやJava含めたプログラミングにあたり、
変数は、値渡し、参照渡し、矢切りの渡し、
どれをメインに使っていくのが得策でしょうか？

変数のスコープのような「できるだけローカル変数にしたほうがいい」みたいな指針はありますか？

>>430
ケースバイケース

>>431
スコープは可能な限り狭い方がいい。
人が理解できる範囲は限られているから。

>>430
変数の値渡し、参照渡し、矢切の渡しは用途に応じて使い分けるもんでしょ。
ユーザインターフェースに関係ないところは全てローカル変数なんじゃないの？
因みにC言語には参照渡しなんて無いから。

これ以上はスレチになるんでやめとく。

スコープを小さくする、が基本
グローバル変数よりも、モジュール変数、できればローカル変数で。
可能なら値渡しをつかう。

矢切の渡しはどういうときに使いますか？

江戸川を渡りたい時

>>436
とおっしゃいますと、矢切とは江戸川のこと？

>>437
Cells(3, i).Select
ActiveCell.FormulaR1C1 = "=RC[-52] - RC[-6]"

RC[-6]を絶対パスにはせずに固定する方法ってありますか？

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1213777797

RC使うよりoffsetじゃいかんのか？

セルに式が入っていればなんでもいいです。オートフィルしたいので。
変数を使って書き直してみたんですがダメでした。最後のセルだけちゃんとなってたんですが
Cells(3, i).FormulaR1C1 = "=RC[-52] - RC[" & -変数 & "]"

>>439わざわざ貼ってもらってありがとうございます。でも解決できなかったです。

あと>>438のアンカーはミスです；

>>441
>>439だと固定にするには[]を外せば絶対参照になるって書いてある。
何でそのようになっていない？

javascriptではグローバル変数はローカルに代入してから使ったほうが速いって聞いたんだけどVBはどうなの

>>441
なんで絶対参照でダメなのか解らんが
相対参照でやりたいなら、自分で目的セルまでの相対的な位置を計算すればいいんじゃね

再計算方法を特定のシートだけ自動計算、ほかは手動計算にする方法はありますか？

>>445
Workbook_SheetActivateで切り替え

>>446
わからないんでちょっとだけ書いてもらえませんか？

>>445-446
特定のシートから他のシートを参照していたりするケースを考えると、無理じゃね？

>>445が無理なら
bookの設定を手動計算にして、VBAで再計算させるときSheet1以外を再計算させる方法ありますか？

>449
なぜ、一部のシートだけ自動再計算を止めたいの？
値を変えたくなかったら、コピーして値貼り付けすればいいんじゃないの？

解決したんでもういいです

(#^ω^)

ていうか>>450を聞く必要あった？
>>449を聞いてんだろ

マイクロソフト、次期Officeではスクリプト言語にJavaScriptを採用か？
ttp://www.publickey1.jp/blog/11/officejavascript.html

>453
なぜそれを聞く必要があった？

>>455
お前もな
はいキリがないからこれで終わり

ユーザーフォームにオプションボタンを2個置いてiniファイルで状態記憶させています。
iniファイルが無い状態で実行した時は、オプションボタンAのValueをTrueに、オプションボタンBの
ValueをFalseにするようにしています。
この時オプションボタンAのチェックする所がグレーになってしまいます。
オプションボタンAのキャプション部分をクリックすればきちんと表示されます。
iniファイルから状態を読み込んだ時は正常に表示されます。

iniファイルが無い状態で起動させた時もグレーにさせないようにするにはどうしたらいいでしょうか？
iniファイルの読み込みは下記のように書いています。

RC = GetPrivateProfileString(FormData, "optionA", "Ture", buf, Len(buf), iniFile)
UserForm1.optionA.Value = Left$(buf, InStr(buf, vbNullChar) - 1)

RC = GetPrivateProfileString(FormData, "optionB", "False", buf, Len(buf), iniFile)
UserForm1.optionB.Value = Left$(buf, InStr(buf, vbNullChar) - 1)

多分 "Ture" のせい

>>458
まさにそれでした。
ありがとうございました。

Word VBAのスレがないのでここで質問です。
文書があります。
段落が50個くらいあります(Wordの定義の段落ではなく、世間一般の段落。)。
写真が200枚くらいあります。
写真は必ずどこかの段落に属していて、各段落は0個〜10個くらいの写真を支配下に置いてあります。
段落の文章は追加したり構成したりで、長くなったり短くなったりします。
そこでマクロの登場。
文章の長さが変わっても、自動で写真がレイアウトされるようなマクロは作れますか？
レイアウトは人工知能のように勝手に見た目よく配置されるような仕様にしたいです。

Boolで書くのと、0，1で書く場合の区別って何でしょうか？
オブジェクトインスペクタではチェックの状態はBool値になっているのでTrueとか書いたのですが。

>>457
BoolはTrueかFalseしか値を取れない。
0,1はIntegerだから、2値以上扱う場合に使用できる。

簡単な例だけど、
関数の成功、失敗だけの返却値が欲しいのならBool。
関数の失敗を詳しく返すのであればIntegerにするとかかな。

>>460
Word 捨てて、TeX とか DocBook とか使え。

>>462
言ってることよく分からないけど解決してるんでもういいです。

Cells(1, 1).fomula = "=" & 値段 & "* 130"
と上記のようにセルに式を入力したいのですが
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
と表示され上手くいきません。
この場合どのようにすれば上手くいきますか？
よろしくお願いします。

>>460
見た目良くという仕様をまずは一意に解釈出来るように定義しよう。
それさえ出来れば後は作業に過ぎないし、それが出来ないなら話にならない。

>>462
457の質問をよく嫁

>>465
抜粋した記述なのか否か分からなかったけど、
Range("a1").Cells(1,1).Formula=〜
みたいに、Rangeオブジェクトにぶら下げる形で書いても駄目？

>465
* と　130　の間に半角のスペースがありますが、これのせい？
値段　という変数には何が入っているの？

>>465
これ　スペルミスだろ
Ｘ　fomula
〇　Formula

h

セルのChangeイベントって100個とか200個とか複数のセルが
一気に書き換わっても追従する？

>>472
なんで試さないの？

そんな事書いてる暇があったら答えろカス

そんな事書いてる暇があったら試せカス

やだ

For Each c In Selection
Select Case c.Value
Case "1"
c.Interior.ColorIndex = 7
こんな感じでセルの値によって別のセルの値を入れるにはどうすればいいでしょうか。
置換だと時間がかかったのでこっちで処理したいのですが
c.value = cells(tate,yoko).value　では動いてくれません。

c.value = cells(tate,yoko).value
でいいと思うけど型違うとか？

>>477
セルの値によって別のセルの値を代入すればいいんじゃね？

>>478
Longではだめですか？
>>479
selectcaseを使わないでもっと簡単にできる方法がありましたら是非教えてください

""で囲ったらstringになるんじゃかったっけ？

> c.value = cells(tate,yoko).value
が動かないのではなく､条件分岐が不適切で､そもそもそのコードが実行すらされていないのでは？
>>481も言ってるが､「case 1」と「case "1"」は別物
セルに「1」と入れたら前者には一致するが､後者には一致しない
セルに「="1"」とか「'1」と入れたら後者に一致する

特定行のコードが実行されているか否かは､ステップ実行やブレイクポイントを使えば､
バカでも簡単に確認出来ることなので､PC初心者板ならまだしも､プログラム技術板に
来る奴がその程度の初歩的な確認すらしてないなんてことは無いと思いたいが
ここにも偶にプログラム技術板ではなくPC初心者板が相応しいようなバカが迷い込むからなぁ

因みに､Select CaseよりはIfの方が僅かに速いぞ
「簡単に」と簡単に言ってくれるが､「簡単」の定義を明確に書かないと､実行の簡単さ(速さ)なのか､
コードを書く上での簡単さ(コード量の少なさ)なのか､コードを読む上での簡単さ(可読性)なのか､
何を求めているのか解らないし､具体的な分岐条件も書かれていないのでは尚更答えようが無い
分岐条件によってはコピー元のセル行列を演算やChoose､Iif､Arrayなどを使って求め､条件分岐自体を
廃することも可能だが､不特定の条件に万能に対応出来る方法となるとIfとSelect Caseしか答えようがないからなぁ

うわ偉そうなうっとおしい長文回答

無能の遠吠えを聞いた気がする

select caseもifもコンパイルで最適化されるんじゃないの

>>482
とりあえずはっきりした間違いだけ指摘しとく
>セルに「1」と入れたら前者には一致するが､後者には一致しない
これは間違い
暗黙の型変換によって両者に一致するぞ

仮にもＶＢＡのスレッドにいるプログラム技術者が暗黙の型変換わからんとか言うなよ

セル範囲のデータを取得してXMLに出力するプログラムを作成しています。
各要素の前後にLF改行を入れるため
Call AAA_node.appendChild(xmlDoc.createTextNode(vbLf))
としているのですが、作成されたXMLをEmEditorなどの改行コードを区別して表示できるエディタで確認すると
CRLFで改行されています。
XMLに出力される改行コードをLFにしたいのですがどうすればよいでしょうか？

いろいろ試せばいいんじゃないの

>>487
エディタ側で気を利かせて改行文字を勝手に変換してるオチは無い？
変換してるのが、エディタかVBAか切り分けるため、
ファイルのバイナリをチェックしてみては？

ごめん、ボケてエディタの種類見落としてた…ちと吊ってくる

一旦作成したXMLをOpenAsTextStreamで開き
Replace(text, vbCrLf, vbLf)して再度保存するという方法に逃げました。。

>>487
バイナリエディタでチェックせずに対策しちゃったのか？
バイナリデータでどんな値が入っているか確認しないで結論出せるとは天才だな。

そもそも XML なのに改行コード云々ってどういう環境なんだろう？

>>493
セルのデータだからじゃないの？
セルの中の改行はLFだから。

楽天証券が配布してるツールでエクセルのアドオンでRSSって言うのがあります。
セルに　=RSS|'9501.T'!現在値　（9501は東京電力の株価コード）と書くと東電の株価がセルに表示されます。

これをVBAで　kabuka　=　RSS|'9501.T'!現在値みたいに直接扱うにはどうしたらいいでしょうか？
現在は Cells(1,1) = "=RSS|'9501.T'!現在値" みたいに一旦セルに記入させてから値を取得しています。
環境はXP、エクセルは2003です。
よろしくお願いします。

>>494
「改行」を保存するんじゃなくて
「改行コード」のコードを保存したいなら、テキストで保存しちゃダメだな

>>495
そのアドオンの仕様がわからんので答えられません
楽天証券に聞いてください

アドオンなら中見えないの？

今、中身見たけどサパーリ分かりません。

思い通りに動くならどんなやり方でもいいんじゃないの
アドオンの関数使ってCalculateして値とればいいじゃない

>>496
セルの内容をXMLファイルに吐き出すVBAを作ったことがある。
セルの内容をString型の変数に保存するだけで問題なくXMLに登録できたし、
XMLファイルから文字列として取り出しても普通に改行コードはそのままだったよ。
普通セルのデータならString型の変数に格納するんじゃないの？

テキストで保存っていうのはどこから出てきた話なのかな？

すみません。
ファイル書き出しについて、ファイル名に選択セル内の文字列を引用する場合はどのように書けばよいでしょうか？

選択セル内に"123"とあれば、123.txt を保存など
strFileName = "C:\temp\***.txt"

"C:\temp\" & Cells(i,j) & ".txt"

>>500
>>487です。実際のところCRLFでもLFでも特に問題ないんですが
W3Cの勧告に以下のようにあるのでLFで保存しておいたほうが良いのかなと思ったんです。
http://www.y-adagio.com/public/standards/xml/xmlmain.htm#sec-line-ends

>>503
そこをどう読んでもXMLファイルの改行コードはLFにすべきと読めないんだが。

そうですか。全く違う意味だったんですね。失礼しました

>>502
>>2を声を出して1億回読め。
お前のようなやつがいるから、小学生でも分かるような内容を質問してくるヤツがつけあがるんだろ。

>>505
本当に理解してるのか怪しいね。
どこをどう理解したんだ？
だれかが「LFにすべきだろ」と言い出したらどうするの？

自己満足のために蒸し返すなよ

>>507
蒸し返されても仕方ない書き込みのほうが問題だろ。

問題を作る能力に長けてますね

なぜそこまで粘着するのかようわからんが、もうええやんｗ

セルのチェンジイベントに関して教えて下さい。
セルにキーボードから入力した場合はチェンジイベントが発生するのですが、
たとえばA1からA10までの集計をSUMでA11に表示する場合、A11ではイベントが発生しません。
セルの表面上の値が変わった時に発生するイベントを教えて下さい。

だから、うだうだ言う前に書いたコードを晒せ

>>511
A11 の値をどこかに覚えておいて、Calculate イベントで更新されたことを
見る方法しか思いつかない。

>>513
ありがとうございます。
ググっていてcalculateイベントにたどり着きました。
それで、改めて質問をしたいのですが、
自分のやりたい事は、このcalculateイベントが起きたセルによって
処理を変えたいので、どこのセルで起きたかを知る方法です。
よろしくお願いします。

>>513さんの具体的なサンプルをググったらありました。
513さんの言われるように監視用のシートを作ったりする必要が有るみたいです。
ありがとうございました。

>>514
計算式にユーザ定義関数を使うってのは？

>>516
ユーザー定義関数は今ググって調べました。
しかし、中身をどうすればいいかが分からないです。
せっかくレスくれたのに、申し訳ない。

>>517
セル位置によってどう処理を変えたいのか詳しく説明すれば、
だれかが適切な内容を考えてくれるさ

VBEに

function hoge(a as nanka)
//shori
hoge = hage
end function

=hoge()

>>518
レス、ありがとうございます。
お言葉に甘えて状況を書きます。

5枚のシートが有り、それぞれA列からE列、100行使います。
E1〜E100まではサーバーから勝手に数字が入ってきます。（この部分は業者が作ってくれた）
やりたい事なのですが、E1からE10、E11からE20と言う感じでグループとして、
どのグループのデータが変更されたかで、その変更されたグループに色を付けたいのです。

E1からE10のどれかが変更されたら赤、次にE41からE50が変わったら、赤を消してE41からE50を
赤（別の色でも良いですけど）みたいにしたいのです。

数字の合計がいくつ以上とかなら、calculateイベントの度に計算すればいいのですが、
どこが変わったのかなので>>514さんのレスのように何処かに記憶させて比較するしかないのかと
思いました。

よろしくお願いします。

つーかさ､ChangeイベントでA1:A10を見ればいいだけじゃん

A11の【内容】は「=SUM(A1:A10)」であり､A1:A10に変更があってA11の【表示】が変わっても
A11の【内容】は「=SUM(A1:A10)」のまま変わらないのだから､
セルの【内容】が変更されたときに起こるChangeイベントがA11で発生しないのは当然のこと

しかし､A11の【表示】が変更されると言うことは､A11が参照しているA1:A10の【内容】が変更されて
いるわけだから､A1:A10側ではChangeイベントが発生する
つまり､A1:A10の【内容】変更を監視すれば､A11の【表示】変更を取得できるというわけだ

>>519
リロードしていませんでした。
どう応用できるか、考えます。
ありがとうございます。

>>521
> セルの【内容】が変更されたときに起こるChangeイベントがA11で発生しないのは当然のこと
すみません。
自分の知りたい事を強調しようと思って書いた例でした。

>>520
それ、セルの値が変わったかどうかが問題で、計算式関係ないじゃないか

一番の解決方法は、Ｅ列を設定するその業者に、値が変わったら色変えてくださいって頼め

>>524
ｶﾞ━━(ﾟДﾟ;)━━━ﾝ!!!!!

>>517
>しかし、中身をどうすればいいかが分からないです。

>>511 の例だと、標準モジュールに

Public Function Hoge(R As Range) as Variant
MsgBox "A11 が変わったよ。"
A11 = Application.WorksheetFunction.Sum(R)
End Function

って書いといて、シートの A11 に "=Hoge(A1:A10)" と入力する。

>>520
>E1〜E100まではサーバーから勝手に数字が入ってきます。（この部分は業者が作ってくれた）

Excel だよね？
ブックの共有でもやってるの？

>>526
なるほど。
分かりました。応用できます。

>>527
サーバーとのやり取りをしています。
中身は分かりませんが、サーバーからデータを取ってきて数字によって
E列の何処かに値を書き込む感じです。

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

VBAやってて面白いと思うときってfunctionとシートやり取りしてるときだよな
なんか関数を司ってる気がする

>>529
もうすこしくわしくおしえてくださらんか？

>>529
普段プログラミングしてない子？

してない子の方が圧倒的に多いし

友達より早く

ListBoxのColumnCountいじると高さが変わるのってなんで？

Worksheets("MAIN").Cells(2, 2)にフォルダを書いておいて実行したんですが

With Worksheets("MAIN")
If Dir(.Cells(2, 2), vbDirectory) = "" Then ←
MsgBox "指定したフォルダが見つかりません。"
Exit Sub
End If
End With

矢印の部分で「型が一致しません」って出るんですけどDir関数って
引数 pathname に指定した内容が見つからないときは、長さ 0 の文字列 (" ") を返します
ってヘルプにあるのにどうして？

Dirの第一引数の型ってRangeでもいいの？

>>536

そちらの方だったのか。。。
Cells(2,2)には d:\test と書いておいたんで文字列だと思ってたんですけど

If Dir(CStr(.Cells(2, 2)), vbDirectory) = "" Then

と訂正しました

ありがとうございました

.value
これは？

Excel97という古いExcelですが分かる方 よろしくお願いします。

画像&オートシェイブ複数を　グループ化した状態で
グループ内の 特定オートシェイブのテキストを変更したいと思い
以下のコードを書きましたが

　実行時エラー '1004'
　Characters クラスの Textプロパティを設定できません。

となってしまいます。
グループ化した状態では変更できないのでしょうか？

　Dim CapText As String
　Dim AddText As String
　Dim ThisShape1 As Shape

　AddText = "HogeHoge"

　For Each ThisShape1 In ActiveSheet.Shapes("Target-Img2").GroupItems
　　If　(ThisShape1.Type = msoAutoShape) And _
　　　　(ThisShape1.Name Like "*-[FB][BHP]-Frame") Then
　　　　　　CapText = ThisShape1.TextFrame.Characters.Text
　　　　　　CapText = CapText & "(" & AddText & ")"
　　　　　　ThisShape1.TextFrame.Characters.Text = CapText '<---ここでエラー
　　End If
　Next

Excel2007/2010でマクロを実行し、処理対象のブックを97-2003形式で保存したいのですが、
SaveAsのFileFormatにはxlWorkbookNormalとxlExcel8のどちらを指定すればよいでしょうか？
どちらで試しても97-2003形式で正常に保存されているような気がします。
xlExcel8はExcel2003以前だとサポートされていないということは知っていますが、他に違いはあるのでしょうか？

>>538

遅くなってすんませんでした。それでもOKでした。どうもm(_ _)m

>>539
これグループ化した時点でShapeが書き換え不可になるんじゃないの？

>>542
やはり書き換え不可になるのですかね

別の処理なんですが
特定Shapeを 非表示(Visible = False) には出来たので
テキストの変更もできそうだと思ったのですが.....
一旦グループ解除するしかないのかな

レスありがとうこざいました。

>>526への便乗質問なんですが、
プロシージャの引数でセルを1つだけの指定にさせるにはどうすればいいのでしょうか？
Rangeだと範囲が指定できてしまいますので、セル1つだけに制限したいのです。
Cellsってやったら怒られました。

VBAでWEBページにある画像をまとめて取得することはできますか？

例えばこのページにある
http://www2.anzen.mofa.go.jp/info/pcmap.asp?id=125&infocode=2011T041&filetype=1&fileno=1

このような国の危険情報の画像
http://www.anzen.mofa.go.jp/attached2/2011T041_1.gif

を、このサイトに存在する世界の国の数だけ集めてExcelシートに貼り付けたいんです。

>>544
型としてはRangeを引数で渡して、関数内でRows,Columns,Areasの
各Countが1以外ならエラー値を返すんじゃ駄目なの？
まぁ、Cellsを指定するとか言ってるなら、型を理解してるかどうかが怪しいが…

>>546
了解しました。ありがとうございます。

単一セルのオブジェクトが無いから、それがexcelの基本方針なんだろうね
ところで、Cellsって昔はメソッドだった気がするんだが、いつのまにプロパティになったんだ？

ユーザー定義関数で

Public Hage(ABC As Range) As nantoka
If ABC.Value>0 Then
Range("A1").Value="0より大きい"
End If
End Function

みたいに関数内からシート等に働きかける事ってできませんか？

＃Valueエラーが出てどうして良いか分かりません。
よろしくお願いします

無理だからワークシートチェンジのところに書け

働きかけたい先も引数にとれば行けそうな気がする

function忘れてる

レスありがとうございます。
ワークシートチェンジに書くしかないようです。

このイベントなんですが、100カ所くらいのセルが
ランダムに書き換わって、当然何カ所かは同時に
書き換わるような場合、100回処理がきちんと行われるんでしょうか？

もしくは、そういう場合は最初のイベント処理の時に
イベントが発生しないようして、何個もプロシージャが
走らないようにした方が良いのでしょうか？

誰がどうやって複数のセルに同時に書き込むんだ？

どなたか>>540にお答えいただける方いませんか。。

>>554
>>520氏のような感じ。
うちは機械とシリアルでやり取りしてさせてるんだけど。
100台機械を繋げてる訳じゃなくて、シリアルのデータの中から
セル100個（おおざっぱな数字だけど）にデータを振り分けてる。

for each

ついでにいうと同時に書き変わるというのはシングルタスクのVBAでは無理

それは理解している
PCの性能にもよるんだろうけど、どこまできっちりイベント処理してくれるのかな

質問です。
整数で二枚の各シートA,Bの2列に１から６００までの整数がランダムに各列36万行入力
しています。シート１のA,B列の整数をシート2の整数A,Bと合致する行を検索するプログラムを
作ろうと思います。各シートの中の同じ組み合わせのA,Bは、２つありません。

そこで実際にシート1.2の各行を一つ一つ照らし合わせるプログラムを書いて見たが、実行すると
あまりにも計算する量が多くてパソコンが止まってしまいます。
そこで質問ですが、計算量を少なくするには、どのようなやり方がよいでしょうか？

シート3に1と2が一致してるかどうかの関数いれる

>>560
ひとつひとつ参照ってどんな風に書いてるの？

>>559
取りこぼすと思ってるの？

>>562
If sheet1.Cells(a, "A") = sheet2.Cells(b, "A") And _
sheet1.Cells(a, "B") = sheet2.Cells(b, "B") Then
Loop
a = a + 1

のようにFor文で一致する行を検索してます。

>>563
APIを直接叩くプログラムだと、EXEファイルと挙動が違ったり
windowsにメッセージが行く時と行かない時があるから疑ってる

>560,564
シートのセルを直接参照するんじゃなくて、
Ａ列とＢ列の値を連結した１個の数字（値は１，００１〜６００，６００）×３６万の１次元の
配列２個（シートＡからのものと、シートＢからのもの）を作って、配列同士の比較をした
方が速いんじゃないの？

>>566
それでいいのなら、36万要素の配列Aを一つ用意して、一つ目のシートに対して、
hash = (sheet1.Cells(i, "A").Value - 1) * 600 + sheet1.Cells(i, "B").Value - 1: A(hash) = i
を計算しておいて、今度は二つ目のシートに対して、同じようにhashを計算すれば一瞬で済むじゃない。

Excel, pptのマクロにて，
Set Menubar = Application.CommandBars("Tools")
Set cbcbtn = cbMenubar.Controls.Add(Type:=msoControlButton)
cbcbtn.Caption = "ほげほげ"
などとして，アドインタブにマクロを追加しているのですが，
アドインタブ内のバーのタイトルが"メニューコマンド"となっていて，
変更方法がわかりません．これを変更するにはどうしたらいいのでしょうか?
"Tools"が，アドイン->メニューコマンドとして
定義されてしまっているのでしょうか?

>>565
初心者は先に自分を疑った方が良い

>>560
シートのセル参照すると結構遅い
どこまで早くしたいかわからんが、素直にシート１のA1:B360000と
シート２のA1:B360000をそれぞれ２次元配列に入れて、配列どうしで比較するだけで良いんじゃね
    s1 = Sheet1.Range("A1:B360000")
    s2 = Sheet2.Range("A1:B360000")
    For i = 1 To 360000
        If s1(i, 1) = s2(i, 1) And s1(i, 2) = s2(i, 2) Then
...
みたいな感じ
つか普通にセル参照しても、うちの環境なら数秒のオーダーで終わったけどな
参照と比較以外で時間かかってるんじゃないか？

>570
ループは２重で「総当たり」だから時間がかかるんでしょ。

>>571
ああ、俺が仕様を勘違いしてるのか

俺のexeclは6万行くらいしかないんだけど

65535行が上限です

>573,574
ナカーマ　　　いつまでもExcel2003を使い続けましょう！

>>560
ソート＆二分木探索で解決するだろJK

ご指導願います

あるマクロを設定しましてマクロボタンを作って　現在指定時間にクリックしてマクロ実行しているのですが
ボタンがたくさん増えたため　時間のずれがでてきまして・・・・

このボタンを毎日指定時間に　自動でボタンを押してくれるマクロを設定したいのです
ご指導お願いできないでしょうか？　お願いいたします

OnTimeでそのボタンのマクロを起動すればよいのでは？

Set FoundCell = range("B:B").CurrentRegion.Find(What:=名前)
If FoundCell Is Nothing Then
Else
FoundCell.Select
上記のようにfindで見つけたセルをセレクトしたいのですが
検索範囲をB列のみとしているのですが実行して
セレクトされる列は何故かA列になってしまいます。
どこが悪いのか分かる方ごご指摘ください。お願いします。

CurrentRegionのせいで範囲が広がってると思う

ボタン作らなくても関数名入力するだけでいいと思うが

>>578　>>581
初心者なので　一旦自分なりにくぐって見ます　ありがとうございました

VBAの入門レベルは突破したから
こんどは仕事で使える「便利技」を重点的にたくさん学びたいんだけど
そういう中級レベル以上を対象としてる
とくに便利技のサンプル例がたくさん載ってる本はありませんか？

寧ろ懇切丁寧にプログラミングの基礎から書いてある本より、こういうときはこう書け、みたいなのが多い気がする

正直基礎完璧にしてAPIの使い方分かったらほとんどのことはできる

>>583
基礎が出来たなら、仕事で使えそうな便利技を勉強するも、仕事の中でこういう風に出来たら便利なのになと思うことを実際にコード書いてみるといいと思う。

大抵のことは、検索すれば答え出ると思う。その中で不足していることを補えばいいのでは…

学生だと話ずれてしまってるかもだが…

入門レベルは突破っていうのがどのくらいのレベルのことを言うのかな？
・Excel VBAのルールを理解している
・構造化プログラミングが出来る
・クラス設計が出来る
・プログラミングの定石を理解している

俺はどれも中途半端。
っていうかクラスモジュール使ったことないorz
クラスが必要になる場面に出くわしていないっていうのもあるけど。

入門

for nextが使いこなせる
ローカル変数とグローバル変数がわかる
フォームも使いこなせる
モジュールの考え方がわかる
サブルーチンで、値渡し、参照渡し、矢切りの渡しの区別がつく

しかし

クラスとはなんのことかさっぱり分りません
構造化プログラミングの意味は説明はひととおり読んで意味はわかったけどそんな大そうな用語を使う意味が分りません。

Excelでお仕事!
http://www.asahi-net.or.jp/~ef2o-inue/top01.html

ここのVBA応用とかAPI関係とか社内でいろいろするなら配布の問題とか
ここら辺が望んでる辺りじゃないの

>>587-588
VBA のクラスは不完全だから、あまり気にしなくてもいい。

中級者：
　On Error Resume Next が正しく使える

それはない

帰ってくる型が違うときにOn Errorで条件分岐するともれなく奇怪なコードを作れます

通常3日あれば入門突破できるはずなのに
何で理解できないのか分からないけどクラス理解してないとか入門突破してないよ

矢切りの渡しってなんぞ？

江戸時代初期、地元住人専用に幕府が設けた渡し場のうちのひとつ。都内に残っている渡しはここだけ。小説や歌謡曲で有名。

いや、オートフィルタを解除する時とかにつかわない？>>On Error Resume Next

他にもどうしてもって時にOn Error goto 0 と挟んで使うけど

>>569
遅レスだがあまり信用はしてはいけないよ
何にでもバグはある

vbaでListBoxを引数にするにはどうすればいいです？
また、引数に出来るとして、受け取った側で渡されたのが
ListBoxなのかどうかを判断するにはどうすればいいでしょうか？
よろしくお願いします。

>>599
普通にAs ListBoxで渡せなかったっけ
もしくはVariantで受けてTypeNameで判定
http://officetanaka.net/excel/vba/function/TypeName.htm

>>599
どういう状況でListBoxを引数にする必要が出てきたのかな？

リストボックスが5個あって条件によって商品名を各リストボックスに
登録していくのですが、リストボックスには最大10個までしか商品名は
登録しない。
古い順から消去して、追加される商品名は先頭に追加する。
こういうルールなので、リストボックスが違うだけで、リストボックスに追加、削除する
プログラムは同じなので、追加、削除するプロシージャを使い回したいのです。

Add_ListBox(Name as string,LB as ListBox)とやると、LBに引数を設定する際、
修正候補"="とエラーが出ます。
Variantでもおなじです。
よろしくお願いします。

>>602
そのAsは何？

型指定する時の接続詞じゃないの

コードがあまりに断片的過ぎて困る

このスレでAsを知らない池沼は>>603だけ

これじゃダメ？
ググればこれくらいのことは分かる。

sub hoge()
Call Add_ListBox("foo",ListBox1.Object)
End Sub

sub Add_ListBox(Name as string,LB as Object)
LB.AddItem(Name)
End Sub

>>594
なんか定期的に出てくるなぁ、VBA でクラスマスターしたってアホが。

>>598
なんにでもバグはあるけど、その確率がぜんぜん違うだろ。

ListBoxを変数に格納するときにSetせずに代入してるとエスパー

「世界で1番簡単なExcelVBAのe本」っての読んだけど、
次に読むべきオススメの本ってありますか？
あまりお金がないので後はその二冊目の本と辞書っぽい本だけ買って何とか自分で大抵のものは作れるようにしたいです

>>608
> なんにでもバグはあるけど、その確率がぜんぜん違うだろ。
お前素人だろ

半導体が接触不良を起こす確率

半導体が接触不良を起こす確率 vs ここに質問しに来る人間のバグを仕込む確率

>>611
自称玄人乙

Set range = range("A:A").End(xlDown)
range.Select
これでA列の一番下のセルを選択したいのですが
A列が2列以上あれば正常に動きます。
しかし、A列が1列しか無い場合、A1048576が選択されてしまいます。
何故でしょうか？分かる方教えてください。お願いします。

それはバグだな

>>608
あれ？例のクラス理解できない子？

A列は2列以上ないはずなので
目がバグってる可能性がある

>>617
＞自称玄人乙
「〜乙」はヤツの口癖だったからおそらく同一人物だろ

xldown って要はCTRL+↓の動作でしょ
だから 2行 以上ないとそうなるでしょ

俺のexecl6万行くらいしかないんだけど

大丈夫だ、問題ない

>>617
例のクラスって何だ？

>>619
深夜作業乙 (w

素人は意外とバグ発見器だけどね

パソコン新しくしたらマクロ実行速度大幅に短縮された

もう簡易用途だったら、わざわざプログラムの最適化作業に時間費やす必要はなさそう

そう思ってればいい

>>626
手法を知ってるならやらなくていいだろ

ユーザーフォームが呼び出されているかを知る方法って有りますか？

>>628
呼び出されているというのがいまいちよくわからんけど、
Initailize/Terminate もしくは Activate/Deactivate で、
フラグ On/Off して、それ見るんじゃだめ？

UserForm1.Show vbModeless
Load UserForm2

Debug.Print "表示されているユーザーフォームの数：" & DoEvents
Debug.Print "ロードされているユーザーフォームの数：" & UserForms.Count

VBAじゃなくてセルに直接書く関数に関して質問でもおｋ？

>>631

こっちのほうが良いと思う
Excel総合相談所 98
http://hibari.2ch.net/test/read.cgi/bsoft/1312896741/l50

>>630
そのコードじゃ「どれが」ってのがわからないよ

今、629さんに教えてもらったようにInitailize/Terminateにフラグ建てて判断するようにしてみました。
やってる事は、シートのダブルクリックイベントでフォームのcheckboxがチェックされているかによって
プロシージャを実行するかしないかという事なんですが、フォームを閉じる際にTerminateが走るのは
確認しました。
しかし、フォームを閉じた後シートをダブルクリックするとフォームは呼び出していないのに
Initailizeが走ってフラグがTrueになってしまいます。
ユーザーフォームが呼び出されていないのにInitailizeが走るのってバグ？
エクセル2003です。

>>628
> ユーザーフォームが呼び出されているかを知る方法って有りますか？

フォームがロードされているかどうか確認する

function dfIsFormLoaded(Byval strFormName as String) as Boolean

　on Error Goto ErrTrap

　Dim i as integer

　dfIsFormLoaded = false

　for i=0 to forms.count - 1
　　if UCase$(Forms(i).name) = UCase$(strFormName) then
　　　dfIsFormLoaded = truen
　　　Exit Function
　　end if
　Next

　Exit Function

ErrTrap:
　On Error goto 0

End Function

>>633

書いてあるのは「ユーザーフォームが呼び出されているかを知る方法」であって
「どれが」とは書いて無い

皆さまお力を貸してください。
findにて連続検索をして、見つかったセルの隣のセルの値を取得して
見つかったセルが3個あればその中から一番高い値を選択したいのですが
どのような方法、または関数を使うのがいいでしょうか？
お願いします。

>>637
MAX

連続検索はFindNext､隣のセルはOffset､
最大値はWorksheetFunction.Maxでも比較演算でもお好きに

それだけ解れば､あとは自分で書いた
> 連続検索をして、見つかったセルの隣のセルの値を取得して
> 見つかったセルが3個あればその中から一番高い値を選択
をそのままVBAに直すだけだろ

>>637
丸投げかよ。
っていうかさ、お前どこまで考えたの？
コード書いたの？馬鹿なの？死ぬの？

ニコニコにあるインベーダ―ゲーム作るにはどうしたらよい？

>作るにはどうしたらよい？

プログラムを書けばよい

逐次探索のプログラムについて

Cells(1, 1) = 11
Cells(1, 2) = 24
Cells(1, 3) = 36
Cells(1, 4) = 44
Cells(1, 5) = 58
Cells(1, 6) = 64
Cells(1, 7) = 77

Sub 逐次探索()
Dim k As Integer, j As Integer
k = InputBox("数字を入力してください。")
For j = 1 To 7
If cells(1, j) Then
Exit For
End If
Next
If cells(1, j) Then
MsgBox j & "番目です"
Else
MsgBox "無いよん"
End If
End Sub

ここまで、自力で作成しましたがどんな数を入れても、
"１番目です"としか出ません。
どなたか対処法をお願いします。

>>643
If cells(1, j) Then
って何を判定させたいの？

>>643
すみません、=36です。

>643,645
２カ所ある　cells(1, j)　を　cells(1, j).Value = k　ってしたらいいのでは？
inputboxに入れた数字を　k　に保存して、for〜nextループで調べて
一致したら、その数字が何番目なのかを表示するって処理でしょ？
（一致しなかったら「無いよん」と表示）

>>646
無事に完成しました。
ご指摘ありがとうございました。

>>646-647
二つめのIf文は危険なコードだと思う。
最初のIf文で検索できなかった場合、jは8となる。

今回は偶々一つ多くてもセルの位置に余裕があるからいいけど、
セルの位置が最大255の場合ならセルの列の最大数超えるし、
配列の場合は定義の範囲を超えてしまう。

二つめのIf文は j で判定したほうが安全。

複数のセルの値を順にみていって、条件にあったらメッセージボックスを表示させたいんだけど、
普通に表示させたらOKボタン押すまでマクロの実行が止まりますよね。
メッセージボックスが出てもセルの値を順に見続けて既にメッセージボックスが出てても、
次のメッセージボックスを表示させたいんだけどどうすればいいですか？

Application.ScreenUpdating を使って処理中の画面のちらつきは
抑えられますが、 Application.ScreenUpdating = Trueになるときに
ちらつくのは抑えられませんか？

>>649
全部調べて文章作ってからメッセージボックスを表示する

文章かぁ
考えつかんかった。

ウィンドウを最小化しておけばいいんでねーの？

ユーザーフォームでmodeless

>>648
指摘有難うございます。先程修正しました。
今、>>643と同じ条件で二分探索を作っていますが、良く分からず止まっています…。

subプロシージャ内で自subプロシージャ名を取得するには如何すればよろしいでござるか？

そんな事はできん。
と、思うでござるが

>>655
同じ条件ってよくわからん。具体的に。

>658
Ａ１〜Ｇ１まで昇順にならんでいる前提で、列位置の数字を
１→７→４→２→３で当たり！って半分ずつ探す方法　のことでしょ

>>659
余計分からん。
その探索は二分木探索じゃないし、>>643では二分木探索なんかしてない。

逐次探索

>>643と条件は一緒で、自分なりに考えたのだが…

Sub 二分探索()
Dim i As Integer, j As Integer, k As Integer, m As Integer
k = InputBox("数字を入力してください。")
i = 1
j = 7
Do While i <= j
m = (i + j) / 2
If cells(m) = k Then
MsgBox m & "番目です。"
ElseIf cells(m) > k Then
j = m - 1
MsgBox j & "番目です。"
Else
i = m + 1
MsgBox i & "番目です。"
End If
Loop
End Sub

　どんな数入れても、5番目、7番目、8番目と出てしまう。
　訂正お願いします。

>>661
逐次→二分でした

>>661
デバッグできないの？馬鹿なの？死ぬの？

>>663
すみません、初心者です。

>>664
デバッグの仕方ぐらいググれよ。
デバッグぐらい小学生でも出来るよ。

>>657
じゃあ、Subプロシージャから呼び出されたFunction()側から、何処から呼ばれたか知る術はないでござろうか？
引数として決め内でフラグを渡すとかは論外で、汎用的にできないですかね

>661　は、該当しない場合のことが抜けてますよ
Sub new二分探索()
Dim i As Integer, j As Integer, k As Integer, m As Integer
　　k = InputBox("数字を入力してください。")
　　i = 1: j = 7
　　If (Cells(1, i).Value > k) Or (Cells(1, j).Value < k) Then
　　　　MsgBox ("範囲外です"): GoTo end_sub
　　End If
　　Do While i <= j
　　　　m = (i + j) / 2
　　　　If Cells(1, m).Value = k Then
　　　　　　MsgBox (m & "番目です"): Exit Do
　　　　ElseIf i = j Then
　　　　　　MsgBox ("該当なし"): Exit Do
　　　　End If
　　　　If Cells(1, m).Value > k Then
　　　　　　j = m - 1
　　　　Else
　　　　　　i = m + 1
　　　　End If
　　Loop
end_sub:
End Sub

>>667
その場合、どんな数を入れても範囲外→該当なしになるので、考え直しています。

>668　？？？
>643　では「無いよん」って表示してるのに？

>>669
失礼しました。自分の勘違いでした、
親切におしえてくださり、ありがとうございました。

>>666
プログラムってものの作り方を解ってないなw

俺もプログラミング初めて1ヶ月くらいの超初心者の頃
そういうことが出来ないかと模索したことがあったよ
2,3ヶ月もすると､「自分は何バカなことやろうとしてたんだろう」と
思うようになったがw

つhttp://www2.cc.niigata-u.ac.jp/~takeuchi/tbasic/BackGround/Recursive.html

>>661
７個くらいならどんな二分探索でもよいが、もし範囲が広い場合は毎回一致してるかどうかの判定は無駄なのでこんな二分探索になる。
Sub 二分探索()
　　Dim r As Range
　　Dim k, i&, j&, m&
　　k = Application.InputBox("数字を入力してください。", Type:=1)
　　If VarType(k) = vbBoolean Then Exit Sub
　　Set r = Range("A1:G1")
　　i = 1
　　j = r.Count
　　Do While i <= j
　　　　m = (i + j) \ 2
　　　　If r(m).Value > k Then
　　　　　　j = m - 1
　　　　Else
　　　　　　i = m + 1
　　　　End If
　　Loop
　　If j > 0 Then
　　　　If r(j).Value = k Then
　　　　　　MsgBox j & "番目です"
　　　　Else
　　　　　　MsgBox "該当なし"
　　　　End If
　　Else
　　　　MsgBox "該当なし"
　　End If
End Sub

r(m)とかの意味が分からないときは、とりあえずCells(1,m)とかに置き換えればいい。

まじに書いてはみたが、ちょっと素人にはわかりづらいアルゴリズムだな。

>>671
いや、だから関数とかないのかと思ってね
カーネル使えば出来そうだけど自分参照できんのかな

>>673を素人向きに分かりやすいアルゴリズムで書けばこうなるのかな？
Sub 二分探索()
　　Dim r As Range
　　Dim k, i&, j&, m&, temp#
　　k = Application.InputBox("数字を入力してください。", Type:=1)
　　If VarType(k) = vbBoolean Then Exit Sub
　　Set r = Range("A1:G1")
　　i = 1
　　j = r.Count
　　Do While i <= j
　　　　m = (i + j) \ 2
　　　　temp = r(m).Value
　　　　If temp > k Then
　　　　　　j = m - 1
　　　　ElseIf temp < k Then
　　　　　　i = m + 1
　　　　Else
　　　　　　MsgBox m & "番目です"
　　　　　　Exit Sub
　　　　End If
　　Loop
　　MsgBox "該当なし"
End Sub

ループを抜けたら不一致だ。

Excel2007で並び替えダイアログを表示するVBAを作成しています。
「先頭行をデータの見出しとして使用する」をデフォルトでチェックを
入れたいのですが。
↓では出来ませんでした。
パラメータの渡し方が間違っているのでしょうか。

Application.Dialogs(xlDialogSort).Show arg8:=1

オートシェイプが移動したときに発生するイベントってありますか

>>677
名前付き引数は使えないっぽ

Application.Dialogs(xlDialogSort).Show , , , , , , , xlYes

玄人さんはいつもって訳じゃないけど、基本はこうだな。

素人でも分かりやすいコードを書く→玄人プログラマ
素人でも分かりにくいコードを書く→素人プログラマ

玄人ほど基本に忠実だよ

玄人でも基本ができてないやつは多い。
とくにVBAでは本を書くようなやつでも合格レベルの玄人は少ない。
所詮素人に毛が生えてるおかも知らんけど。

そいつは玄人じゃない

ゎたしゎマンコに毛が生ぇてるけど
素人ですか玄人ですか？

昔と違って余裕で1000とか2getとか

>>683
禿同。本を書いているからって玄人というわけじゃない。
素人でも参考書は書ける。

素人玄人云々は別にして、プロなら>>676の二分探索アルゴリズムだけじゃなく、>>673の手法も知ってた方がいい。
同じものが複数あるとき後ろの位置を返すには>>673になる。

>>687
>>673のコードの基本は二分木探索で、その応用なんだから二分木探索だけ覚えておけばいいんじゃね？
ライブラリみたいな形にしておいてもいいと思うけど。

二分探索と二分木探索って同じものだっけ？

>>679
ご回答ありがとうございます。
カンマで引数を指定しましたが、やはり出来ませんでした。

Application.Dialogs(xlDialogSort).Show
の前にセル選択をしていると
「先頭行をデータの見出しとして使用する」のチェックが
ついていなくて、
セル選択をしないとチェックが付いていました。

一番下の行も並び替え対象から外したいので
セル選択をしてから並び替えダイアログを表示しています。

何かのイベント処理中に同じイベントが起こったら、
処理が終わり次第、順番にイベントが処理されていくと
思うのですが、イベント処理する時に溜まっている
イベントを破棄することって出来ますか？

for each で一定範囲内にあるオートシェイプってできますか？
具体的には
Top1〜Top2の間かつLeft1〜Left2の間にあるオートシェイプのみをfor each したいです

>>689
スレの流れでは二分探索だな。

俺は>>676みたいな二分探索しか知らなかったわ。
なるほど>>673は比較回数が少なくなるね。
ここで久々に勉強になった。
理解するのに少々手こずったが。

>>692
すべてのオートシェイプをFor Eachで回して、そのオートシェイプがTop1〜Top2の間かつLeft1〜Left2の間にあるときだけ
実行すりゃいいんじゃね？

http://ec.nikkeibp.co.jp/item/books/B14400.html
この本だけは認める。

>>696
その本のサンプルコードをダウンロードして見たけど、玄人とは言えないな。

今まで記録マクロしか扱ったことがない素人ですが，どうかお知恵を貸してください。
ソフトはエクセル２００３です。

○状況
フォルダ１に，商品データファイルが商品コードの頭文字A〜Zごとに，それぞれに独立のエクセルファイルに収納されている。
（商品コード，数量，値段，更新日などが1行ごとに並んでいて，列は固定です）

同じ書式で，一定期間ごとに更新用データファイルが送られてくる。（コードの頭文字に関係なく，ランダムな商品データが配列されている）

○やりたいこと
更新用ファイルの商品コードと一致するものを，フォルダ１のA〜Zのファイルの中から検索し，
フォルダ１の中の該当した商品の数量，値段などを最新のものに書き換えたい

VBAの中でvlookup，match+index関数などを組み込んで試してみましたが，一致しないとエラーが出たり，
非常に時間がかかってしまうなど上手くできませんでした。（1ファイルに３〜5万件のデータがあるため）
また，調べたところでは，配列形式など高速で処理する方法もあるようなのですが，私には理解できませんでした。
これをできるだけ高速に，エラーなく処理するプログラムのヒントをいただきたく存じます。
全体的にこういう流れ，という概要と，途中までの具体的なコードを書いていただけると，非常に助かります。お願いします。

>>698
とりあえず、更新用データのファイルの中身を商品コードでソートして。
それからマッチングと書き換え処理をさせれば、単純にランダムな並びのまま
ファイルを更新するよりは、ファイルのオープン、クローズや検索のための
走査回数の無駄が省けるはず。

俺ならaccessに入れる

>>698
醜い例でよければ、こんな感じで書ける。

Sub updateData()

ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells( _
ActiveSheet.Range("A1").End(xlDown).Row, _
ActiveSheet.Range("A1").End(xlToRight).Column)).Select
'商品コードでソート(先頭行が見出し行と仮定、以降も同様)
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal

'更新処理本体
Dim IniChar As String, IniCharPrev As String
Dim bIsOpen As Boolean, bMatch As Boolean
Dim TimeStamp As Date
Dim a As Variant, b As Variant, vSrc As Variant
Dim sDataFolder As String, sDestFilename As String
Dim wbDest As Workbook
Dim wsDest As Worksheet

TimeStamp = Date '本日日付を取得(更新日も更新ファイルの値を反映するなら不要)
sDataFolder = "d:\folder1\" '対象フォルダを設定
IniCharPrev = ""
ActiveSheet.Range("A2:A" & ActiveSheet.Range("A2").End(xlDown).Row).Select
bIsOpen = False
'続く

ゴメン、ミスって上げてしまった…
'続き
For Each a In Selection
IniChar = Left(a.Value, 1) '更新データの頭文字を取得
If IniChar <> IniCharPrev Then '直前に操作していたデータと頭文字が異なれば、ファイルを開きなおす
If bIsOpen = True Then '既に開いているデータファイルがあれば保存して閉じる
wbDest.Save : wbDest.Close : Set wsDest = Nothing : Set wbDest = Nothing : bIsOpen = False
End If
sDestFilename = IniChar & ".xls" '更新先ファイル名を設定(ファイル名に応じて要更新)
Workbooks.Open Filename:=sDataFolder & sDestFilename
Set wbDest = Workbooks(sDestFilename)
Set wsDest = wbDest.Worksheets(1) 'シートが複数あるなら要修正
bIsOpen = True
End If
IniCharPrev = IniChar

'続き(これで終わり)
'検索
vSrc = a.Value : bMatch = False
For Each b In wsDest.Range("A1:A" & wsDest.Range("A1").End(xlDown).Row)
If vSrc = b.Value Then '一致したら更新
b.Cells(1, 2) = a.Cells(1, 2) : b.Cells(1, 3) = a.Cells(1, 3) '値段&数量
b.Cells(1, 4) = TimeStamp '更新日(更新日も更新ファイルの値を反映するなら要修正)
bMatch = True
Exit For
End If
Next b
If bMatch = False Then
MsgBox "データ " & Chr(34) & CStr(a.Value) & Chr(34) & "(" & a.Row & "行目)は見つかりませんでした。", vbExclamation
End If
Next a
If bIsOpen = True Then '既に開いているデータファイルがあれば保存して閉じる
wbDest.Save : wbDest.Close : Set wsDest = Nothing : Set wbDest = Nothing : bIsOpen = False
End If
End Sub

ここだとインデントもなくなるし複数のレスに跨ると見辛くなるしpastebinの類を使った方がいい

スレ汚してしまって、ゴメン。次回以降、気をつけます。

Excelで管理するようりDBで管理したほうがよさげなデータだな

Janeだと引用付きレスを使えばインデントも復元できるけど、やっぱ半角スペースを全角スペースに全置換する程度の気遣いは必要かもね

それは気遣いちゃう
気違いじゃ

>>706
その意見に大賛成だけどネックは「今まで記録マクロしか扱ったことがない素人」にDB扱わせるのは
問題ありすぎだと

でも5万件もの商品データを扱うのにExcelを使ってるような
会社？が信用できるのかどうか。
遊びでもなさそうだし。

>>710
>>698に「1ファイルに３〜5万件のデータがあるため」と書かれているので
a. A〜Zのファイルそれぞれに3〜5万件ある
b. 更新用ファイルの内容が3〜5万件ある
b-1. 全データ数が3〜5万件あって、毎回その全てのデータが更新用ファイルに入っている
b-2. 全データは5万件以上あって、更新用ファイルにはその中の3〜5万件分が入っている

のどれかなんだけど、Zから始まるものが3万件もあるとは考えづらいのでb.じゃないかと睨んでる。

そうすると、処理毎に3〜5万回の検索をしなければならないので、データベース的なものを
考えないと無理だと思う。（金曜の夜に起動しておいて、月曜来たときに終わってればOKとかいう場合は別）

まぁでも事前に26個のデータファイルをオープンしておいて、3〜5万回のrange.find()しても
たいした時間かからないような気もする。

あと、>>701のコードは駄目駄目だから。rangeをSelectするのはド素人。

用途は仕事です。
データ件数の話ですが，フォルダ１内ののA〜Zのファイルがそれぞれ３〜5万件といったところです。
更新データは1万以下です。
正確には数の少ないX〜Zなどは1ファイルにまとめてあったりするところもあります。
結局は全部開いて検索しなければならないと思ったので詳細は省いて説明してしまいました。

時間がある程度かかることは承知していますが，その間放置しておけばよいので，
できるだけ自動化して上手く反映させられることを優先しています。

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

でもこのコードは駄目駄目？なんですか？
まずAのファイルから開いてFor Eachで検索→一致したものを更新→Bのファイル→C……Zまで繰り返し
という流れで良いのでしょうか？　まあそれが分かっても自分でコードは書けないわけですが

>>713
>>701です。あくまで1例だけど、考え方はその理解で合ってる。
確かに指摘されてる通り直す余地が色々ある効率も良くないコードだけど、
一応やりたい事は実現できる。おいらもVBA熟練者じゃないんでお手本を見て参考にしたいなぁ。

更新データだけでなく、フォルダ中のデータも並びを入れ替えても良いなら、
最初にフォルダ中のデータも全部ソートしちゃうと効率上げられるね。
フォルダ中のデータに存在しないレコードを探す場合以外は、
マッチング処理用の走査開始位置を、前回のマッチング行の次の行から行えば良いので、
データ全体を検索のために走査する回数は1回で済ませられるはず。

まぁでもみんなの言う通り、Excelで処理しなければならない特別な理由が無いなら、
データベースに移行した方が良いと思うし、イニシャル毎にファイルを分ける運用も
やめてデータは1つの表にまとめた方が良いと思う。
それなら今回の処理だってACCESSとかならSQLを1文書くだけで済む。

全角スペースでインデントできるけど。

物すごく遠回りなデータベース

Range("A1").FormulaR1C1 = "='E:\[Book1.xls]" & i & "'!RC-'E:\[Book2.xls]" & i & "'!RC"
作業しているブックのシート名とBook1のシート名が同じ場合、上のようなマクロを実行すると
「リンクするシートを選択してください」とBook1のシートを選択する小窓が出ます。
Book2と同じシート名では問題なく実行できたのですが
なぜこのようになるのか教えてください

>701
ありがとう。まず少ないデータで確認しながらやってみます。

＞７１６＆その他の方
遠回りせずにすむ方法があればぜひ教えてください

まずaccessを買ってください

>>673
質問者とは全然関係ないんだけど
たまたま似たようなことやっててとても参考になりました。
どうもありがとう

Accessを買わなくてもADOでSQLはつかえるぞ
メモりリークするけどw

>>721
それは何かしらのデータベースがインストールされていればの話でしょ。
mySQLとかPosGreとか無料のDBインストールして使ってみるのもいいかもしれないけどね。

DB使うってことは必然的にSQLの知識も必要になってくるわけで。
VBAで手軽にっていうのとかけ離れているのかもしれない。
DB向けの内容をExcelにやらせていること自体、システム設計に問題があると思う。

>>722
> >>721
> それは何かしらのデータベースがインストールされていればの話でしょ。
> mySQLとかPosGreとか無料のDBインストールして使ってみるのもいいかもしれないけどね。

Excelの表に対してもADO&SQLで操作できるぞ？一部使えない命令(DELETE文とか）もあるけど
でも、使ってみたかんじではちょっと凝ったSQLは上手く動かなかったな

ExcelをDBとして使うのが間違ってるからなぁ

絵を書くのにペイントを使わずワードを使ってるようなものだし

たまにはこいつのことを思い出してください
http://www.connectionstrings.com/excel

サポートキレたって聞いたけどまだ生きてるのかな・・・

脊髄反射で書いてしまった

OS＝XP
エクセルバージョン＝２００３

ワークシートを判別する方法を教えてください。
もしSheet1がアクティブだったらこの処理。
Sheet2がアクティブだったらこの処理ってマクロ組んでるんですけど
ＩＦ反応してくれません。
他に.Selectとか　=Trueとか試してみたけどさっぱり・・・
ググレカスしてもヒットせず途方に暮れてます。。。

IF　Sheets("Sheet1").Activate Then
処理
Elseif Sheets("Sheet2").Activate Then
　処理
　・
　・
　・

If ActiveSheet Is Worksheets("Sheet1") Then

てな感じかな。

>>727
Activateはシートをアクティブにするメソッド
アクティブなシートで処理を切り替えたいなら、
ActiveSheet.Nameみて判断すればいい

>>728
>>729

解決できた！ありがとう。
助かりました。

知っていれば簡単な記述だけど、知らなかったら難しいですね。
おかげさまで更に応用させられそうです。

これはググレカスと言わざるを得ない

各シートがアクティブかどうか見るんじゃなくて、
アクティブなシートは何か調べるっていう発想の転換が必要なわけで
自分で書いてるけどいろいろググってもヒットしなかったんだろ

まあどんな単語でググったのか気にはなるが

アクティブかどうかの判定の目的なのにActivateメソッドを使うって事は、
英語力に問題があるような…。高校で英語サボるとこうなるのか？

最近VBAに必要性を感じて入門サイトなどから勉強して概要はつかめたのですが
今現在は、図形描画ツールによって作成された数十個のテキストボックスに書かれた文章をセルにコピーペーストするという
作業をやりたいのですが、

以前にそのスクリプトを頂いたのですが、数十個あるうちの半分ぐらいしかコピーペーストされなかったりします。

自分でそのコードを理解して、思うように作り直したいと思い勉強していたのですが、まだまだイマイチ理解できず。
思うように書けません。スクリプトを作っていくときに、熟練した方はどのように調べて書いているんでしょうか？
私はヘルプを読んだり、マクロの記録をやったりして出てくるスクリプト文とにらめっこしているのですがピンと来ないです。

用途別にわかりやすく解説されたリファレンスなどがあるサイトなどないでしょうか？
イメージとしては辞書を引きながらみたいな感じで少しずつでも目的のものが書けていくようになりたいのですが
そういう作業に適したサイトなどあるでしょうか？

熟練した人はヘルプなどから、細かなオブジェクトやメソッドを理解して作っていってらっしゃるんでしょうか？

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
取りあえず、下のコードを実行する
Sub test()
Dim O As Object
On Error Resume Next
For Each O In ActiveSheet.Shapes
Debug.Print O.TextFrame.Characters.Text & " " & O.Name
Next
End Sub
デバッグ表示に「図形のテキスト　数字」が表示されている
その数字を下のコードのShapes(？）に入れる

Cells(1, 1) = ActiveSheet.Shapes(？).TextFrame.Characters.Text

複数の場合はShapes()の所をForで回して。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
ちなみに入門サイトで図形の操作はあまりないよ。
基本はWorksheetの操作。
グラフ・ピボット・図形はまれ。

サイトは検索しだいで出てくるけど、素人には解りにくい。
さらにヘルプはもっと解りにくい。

>>>細かな・・・理解とあるが時と場合による。
オブジェクトやメソッドと言うよりプロパティ（引数）は
組み合わせ次第でかなり変わる。

熟練した人はそりゃあ細かな仕様を知っているし、ヘルプも読めます。
でもVBA=VB6+EXCELなんで
普通の人が深く理解するのは難しいかも知れないです。
とりあえずヘルプについてはある日突然読めるようになります、多分。
それまで頑張ってみてはどうでしょうか。

>>735>>736
ありがとうございます。やっぱり地道にｸﾞｸﾞｯたりﾍﾙﾌﾟったりして
調べていくしかないのですね。

>>735様、コードもありがとうございます。
>>736様突然読めるようになるというのは、なんとなくわかります。
色々調べながらやってると、前よりはちょっとだけ意味がわかるので。
わかりました。ありがとうございます。

Likeを使った文字列の一致法で
文字列の中に$が入っていなかった場合の式は
Range("A1") like "[!$]"
では上手くいかないのですがどこが駄目でしょうか？
教えてください。

>>738
not (〜 like "$")かな
〜 like "[!$]"だと「$以外の任意の文字がある場合」でtrueなんでない

Likeは部分文字列のマッチングには使えないよ
やるならこう
If Not s Like "*$*" Then
'入っていなかった場合の処理
End IF

Likeにこだわるのはなぜ？
できなければMidとかで取り出せば？
理解せずコピペしたって、暫くしたら
意味不明なコードになるだけ。

Like演算子が好きだけど､Likeの機能じゃ事足りないとなたら正規表現を使うのが良い

まあ正規表現で出来ることは､コードが冗長になっても良いなら全てVBAの組み込み関数と
制御構造で再現できるが､VBScript.RegExpならVBAから簡単に使えるし､
Win98SE以降ならOSに標準で入っているから避ける理由も無いだろう

まあVBScript.RegExpで事足りなくなると､次は鬼車などのライブラリとなるが､ここまでくると
敷居が高いと感じる人も居るし､鬼車の入ってない他機では使えないなどの障害も出てくるけどな

VB6の話になるが､俺の場合正規表現パターンをユーザーが入力するようなアプリでは
鬼車使って､正規表現を決め打ちで組み込む場合は､ほとんどVBScript.RegExpを使ってる

この用途ならInStrが一番良さそうに思うが

VBAスレで正規表現を薦めるのは悲しいバグを生むだけな気がする

バグを見つけたら新たなバグを埋め込んで納期と責任をずらすんだ

>>744
残念､ハズレ

正規表現使って悲しいバグ生む奴は､正規表現使わなくても結局悲しいバグを生むし
正規表現無しなら悲しいバグ生まないという奴は､正規表現使っても悲しいバグなど生まない

結局は､本人がデキる奴かデキない奴かということで､正規表現を使うか使わないかは関係なかったりする

>>739-740
ありがとうございます。参考にさせて頂きます。
自分のプログラムへの理解度が低いのは分かっています。
なのでいろいろと作ってみて勉強をしている最中です。
いろいろな意見が聞けて助かっています。

>>746
お前がハズレ人間だ。
このスレから去れ。

>>738
Likeを使うことそれ自体が目的じゃないのなら、
If InStr(Range("A1").Value, "$") = 0 Then
　　'なかった時の処理
End If

I hate like !!

>>750
ﾜﾛﾀｗｗｗ

>>748
キミはバグの有無に関わらず悲しい奴だなw

自分がずれまくってるのに気づかない勘違い君憐れ

いや､そうでもないか

InStr()を使うより、RegExpを使う方が一般にバグの入り込む余地は増えると思うが。
つか、なんでこの流れで正規表現の話になるのかわからんわ。

正規表現使って悲しいバグ生む奴は､正規表現使わなくても結局悲しいバグを生むし
正規表現無しなら悲しいバグ生まないという奴は､正規表現使っても悲しいバグなど生まない(ｷﾘｯ

> Like演算子が好きだけど､Likeの機能じゃ事足りないとなたら正規表現を使うのが良い
ってだけで､別に件の処理に正規表現使えと言ってるわけでもないのに
何故か勘違いしたバカが湧いたから､延々と正規表現の話が続いてる｡

この程度のことなら普通はLikeかInStrで十分だわな。

>>758
普通っていうとファビョり出す人が結構いるのから気をつけんとな。

>>759
うん知ってる。

>>756
そのカキコが君には悔しくて仕方なかったようだけど､
言ってることは正論でしょ｡

どうせバグを生むなら何もするな
もしくは全部やれ

流れぶった切ってすみません。

ブール型の変数ってTrueとFalseの2値しか取らないのだから
1bitでも十分な気がするのですが、
どうして2Byteもメモリを使うのでしょうか?

例えば、PCで2Byteの方が扱いやすいという理由だとしたら
バイト型変数が1Byteだということと整合性が取れないですし。

別に理由を知らなくても特に困らない興味本位の質問なのですが、
どなたか理由をご存知でしたら教えてください。

>>763
少なくともビット単位では扱いにくいしメモリ効率も悪いだろう
何ビット目に割り当てているっていう情報が必須でしょ

バイトじゃなくてワードで割り当てられている理由はちょっと分からない
バイト単位でのアクセスよりワード単位のアクセスの方が速かった気がするから
それが原因か、原型のVBでそうなっていたのをただ引き継いだだけかもしれない

>>764
どうもありがとうございます
やっぱりワードの方が処理しやすいからですか。

根が貧乏性なせいか、理由があると分かっても
どうにももったいない気がしてしまいますｗ

>>765
そう思うならByteを使ってBooleanの代わりをさせた場合と
Integerとマスクを使ってビット単位でBooleanの代わりをさせた場合と
Booleanそのものを使った場合とで実行速度がどれくらい違うのか測ってみるといいのでは？

>>766
>そう思うならByteを使ってBooleanの代わりをさせた場合と

いや、そこまでするほどの話じゃないのでおとなしくBoolean使います。
あと、マスク云々の方はやり方すらわからないので私にはできないです。
わざわざ提案していただきましたがご期待に沿えず申し訳ないです。

というか、Variant_Booleanじゃないの？

おそらく１６ビット単位でデータを処理するＣＰＵを想定して設計されているんだと思う
ＣＰＵ的にはバイト型も１６ビットでも同じ速度なんだが、それではメモリの効率が悪いのでバイト型は８ビットで済むようにしてる
ただ、バイトデータのメモリ格納には制限があったりするんで、実際にＶＢＡで１バイトの変数が、メモリを１バイトしか使ってないとは限らんはず

>>768
>>769

すみません、寝落ちしてました
こんなくだらない質問に色々教えてくださった皆さん
どうもありがとうございました。

聞いてないし

>>769
間違いだらけで話にならん

addressof 演算子でvbaの関数アドレス引っ張ってプロセスメモリを見るソフトで関数アドレス付近を見ると
なんとなくP-CODEっぽい

知ったかは書き込みを遠慮しなさい。

便所の落書きだろ？

おまえもな〜

じゃあみんなべんじょなかまだ

ここで弁当食べていい？

>>778
クチャ食い禁止。

むしゃむしゃ

ぱくぱく

つるつる

おまいら、エサだぞ。

データ転記の際の上書きコードを教えろ

【スペック】
シートAに入力フォーム、シートBにデータテーブル。
シートAに入力したレコードをシートBに転記。（ボタン１）
シートBのレコードからシートAにレコードを呼び出す。（ボタン２）

【問題】
データを呼び出すコードを使った後、再度入力ボタンを押すと
転記先用シート”データテーブル”には呼び出した前のレコードと再度入力したレコードが重複。

【教えろ】
呼び出したデータに対し上書きできるコードをおまいら教えろ

もう高度すぎて頭がクラクラするわ

あわよくば丸投げで書いて貰おうってやつか？

俺も>>783みたいなことは厨房の頃やったっきりでしばらくやってないから
もう訳解らなくて目眩がする

重複チェックにはキー(レコードを一意に特定するもの)が必要になる。
残念ながらこれはRDBの概念。
EXCELで出来ちゃったらAccessいらないわな
SQLServerなんかも無料で良いかも

excelの並び替えだとうまく並ばなくて、Shift_JIS順に並んでるみたいです。

例えば、a2に”亜”と入っていて、
a3に”亜”のShift_JISの9999（例）とか表示したい場合は
どうしたらいいのでしょうか？よろしくお願いします。

そういうのはユーザー定義関数が良いな。
Excelが手元に無くて試せないけど、
asc("亜")でコードが取れるようなのでそれを返却するようにしてはいかが？

ウソ教えないで

CODE(A1) 文字列の先頭文字に対応する ASCII または JIS コードを返します。

dim s as string
s = "あ"
dim hoge() as byte
hoge = strconv(s, vbfromunicode)
dim c as string
for each c in hoge
print hex(c)
next

厨の頃コード自体を動的に生成するのやったわー
多重ループの中の一行だけ変えるために

Dim b() As Byte
b = StrConv("亜", vbFromUnicode)
Dim i
Dim s As String
For Each i In b
s = s & Hex(i)
Next
MsgBox s

Excel2007
先頭一文字の文字種別を判定しようとしてます
Sub test_Kanji()
Dim wrd As String
Dim i As Integer
For i = 1 To 10
wrd = Left(Cells(i, 1), 1)
Select Case LCase(wrd)
Case "a" To "z"
Cells(i, 2) = "アルファベット"
Case "あ" To "ん"
Cells(i, 2) = "ひらがな"
Case "ア" To "ン"
Cells(i, 2) = "カタカナ"
Case Is >= "亜"
Cells(i, 2) = "漢字"
End Select
Next
End Sub
んで以下の文字列に対してチェックしたんですが、（互）換、（一）定範囲、（二）に対してはチェックが出来ませんでした。
互換
一定範囲
asdrf
ひらがな
カタカナ
漢字
二
六
何故なんでしょうか。後、対処方法とかお教え願えないでしょうか

>>794
Option Compare Text

エクセルからUDPでいいので、データを同じLAN内のPCへ送りたいのですが、
エクセル単体で可能でしょうか？
ググったらエクセルでTCP,UDP,RS232Cのテストをするソフトがあったのですが、
VB6のライブラリがいるとか書いてあったので、そういったものが無くても可能でしょうか？

エクセル2003です。

winsockをapiで呼べばできるよ。

>>795
う〜っむ、、、、
有難うです

http://www.google.com/search?hl=ja&lr=&ie=UTF-8&oe=UTF-8&num=50&q=vba+winsock+%E3%82%B3%E3%83%B3%E3%83%88%E3%83%AD%E3%83%BC%E3%83%AB
http://www.cqpub.co.jp/hanbai/books/18/18771/18771_2syo.pdf

>>796
自分でVBA用のライブラリを作ればいい
ライブラリの中身は通信関係のAPI呼び出しの定義が書いてあるだけなんで、
自分でいちいちAPI呼んでもいいけど、ライブラリ化しといた方があとあと便利

>>801
多分いろいろ勘違いしてると思うよ

>>801
ほう、詳しく教えてくれないか？

いつでもAPIが使えるように宣言を書いたライブラリを作っておくと便利だよって事でしょ。

>>804
>>801からそれを読み取るとは尊敬するわ

皆さんありがとうございます。
winsockが私のエクセルにはないらしいです。
VBAエディタの参照設定にも無かったorz

>>805
コードを書けって言ってるんかと思ったけど、VBAでAPI使うって
単純に宣言を書き直すだけじゃん。
コールバックみたいなのもあるけど。

それくらい読み取れよとも思う。

読み取れない香具師は馬鹿だろ

自分でライブラリを作ればいいって解決策を提示したかのような口ぶりで、
今手間はかかるが次同じような事があれば楽だぜ！
って、、、結局手間だし、
796はAPIを使用することにに難色を示していて、手間を惜しんでる訳ではないし、
796が言ったライブラリってそーゆー意味じゃないし。

804を見て本物のエスパーだと思った。

バカンス

このへんコピペすれば動くよ
http://pcdn.int21.co.jp/pcdn/vb/noriolib/vbmag/9802/winsock/

こっちのほうがよかった
http://homepage2.nifty.com/nonnon/SoftSample/SampleSocketApi.html

>>810
お前もう出てこない方が良い。
なんか、ｇｄｇｄ

ソースコードでライブラリですって出されると何か違う感じだな
バイナリ配布できないvbaならではって感じ

VBAだけでDLL作れないが、バイナリ配布ってならDLLでライブラリ配布できるぞ
ただ元の質問が外部モジュールや外部ライブラリとか使わないでできないか、って話だから
ソース提示してコピペすれば動くって言ってるんじゃないか？

>>815
それは､「私はライブラリの意味を勘違いしている愚か者です」って自嘲しているのか？

そういうときのアドインじゃないの？

>>813で楽勝で動いた

>>817
かつ、OCX版を知らなかったんだろう。

>>813
ありがとうございます。
今、教えてもらったサイトを見てテストしようとしたのですが、
Private Sub Command3_Click()　のしたほうに書かれている

lngWnP = GetWindowLong(Text1.hWnd, GWL_WNDPROC)

で、hWndがないとエラーが出てしまいます。

フォームには、プログラムを見てコマンドボタン3個とText1をみてテキストボックスを1つ
置いたのですが、何がいけないのでしょうか？

821は796です。
よろしくお願いします。

他の人が動いたって聞いてから試すようじゃ
教える価値が無いと思う。

いや、今朝見たから。。。

>>823
お前には聞いてない

>>820
あれVBAでOCX作れたっけ

>>821
それってサーバー側に必要なだけじゃない？
クライアントにはいらないでしょ？

"=countif(B1:B100," & i & ")"
i の値を０からループできますか？
今は０と１以上で分けて問題なく動いてますが、まとめてしまいたいです。

>>828
何を言いたい？ちゃんと脳内を整理して書こうよ。

>>828

つ Option Base 0

図形に文字が書かれていたら表示するのを作っているのですが

For Each myShape In Worksheets("Sheet1").shapes
If myShape.Text <> "" Then
MsgBox myShape.Text
End If
Next myShape

text caption labelいろいろためしたけどだめでした
どれにすればいいのでしょうか

myShape.TextFrame.Characters().Text

On error Goto nex
For Each myShape In Worksheets("Sheet1").shapes
If myShape.TextFrame.Characters.Text <> "" Then
処理
End if
nex:
Next myShape

on error使ってエラー出たら次に飛ばすようにしてみたのですがエラーでます
なぜでしょうか

なぜってErr.Descriptionで分かるでしょう。
それぐらいはしような

お勧めはしないが、On Error Resume Next をつかい、その都度ごとにErr.Numberを確認すれば期待する動きになる、たぶん

それか、

On error Goto nex
For Each myShape In Worksheets(\"Sheet1\").shapes
If myShape.TextFrame.Characters.Text <> \"\" Then
処理
End if
nex:
エラー解消処理の何か
Resume \'再試行
Next myShape

すればいい、たぶん。

つーか、gotoでループなんかの処理制御しないほうがいいと思う

というか文字が入力されてないかどうか判定するくらいならエラーで判定しなくても他に方法あるんじゃね
知らないけど

Variantと他の型の変数の計算速度って同じ？

試せばわかるじゃん。

だからね、そこまで速度が気になるんだったらExcelのVBAなんか使わずに実行ファイルをコンパイルして作れって
それでも不満ならアセンブラやれ、アセンブラ。

だいたい同じ。でもちょっと違う、気になる人もいれば気にしない人もいる。

変数の種類について教えて下さい。
テキストファイルを読み込んだ時に、変数に入れて
一行一行取り出して処理をしたいのですが、
それに適した変数の型ってありますか？
配列を自分で作るのでしょうか？

Line Inputなんてなかったっけ？文字列型で、というか扱うデータも分からんな

早速のレス、ありがとうございます。
ググってすぐに、Line Inputは出てきたのですが、
用例として1行読み込んだらセルに書く用例ばかりでして。

読み込んだ1行を溜め込む、リスト形式の変数がないかを
お聞きしたかったんです。

変数に入れてってそういうことか
Redimで配列を大きくしながら代入していけばいいし
ファイルをバイナリで丸ごと文字列型に読み込んでsplit(ファイル全体, vbCrLf)で配列に分割してもいい

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

.NETのコレクションクラスを使う方法もある

Dim objArrayList
Dim obj
Set objArrayList = CreateObject("System.Collections.ArrayList")
objArrayList.Add "a"
objArrayList.Add "bb"
objArrayList.Add "ccc"
For Each obj In objArrayList
MsgBox obj
Next

無いでしょ
.Netめっちゃ遅いし、初回はCLR起動時間もプラスされるし

VBAならCollectionなかったっけ

VBAならscripting.dictionaryでしょ

>>841
バリアントにスプリットするのが簡単でいいと思う

>>844
改行コード区切りをvbCrLfにしちゃうって誰に教わったの？

VBA初心者です。
お勧めの入門書があれば教えて下さい。
今は「ひと目でわかる・・・」シリーズを見てます

VBAは触ったその日にそれなりのものが出来るくらいLLしいから
入門書読んでる時点で将来性ないと思う
本気でやるならマクロの記録で自分で調べてくのがいいです

>>853
本人がまずどのくらいプログラムできるか次第

他の言語である程度プログラムできるのであれば
マクロの記録から調べて行けば何とかなる
プログラム全くの初心者がマクロの記録みてどうこうするのは無理がある

次の入門書はいろいろ自分でみて、ある程度内容が解るけど全部は解らない、ぐらいのが良いと思う

>>853
マクロの記録はEXCELのオブジェクトモデルを理解する上でしか役に立たない。
俺もそうやって覚えたけど、多様なRange指定方法などを覚える為に参考書は見ておいたほうがいいよ。

VBAでAAC形式のオーディオファイルのタグ書き込みってできる？

>>856
バイナリファイルの読み書きができるから、可能か不可能かで言えば可能

愛知　名古屋営業所
愛知　豊橋営業所
岐阜　関営業所
岐阜　四日市営業所

上記の文字列を、shift_jisに変換したいです。
愛知（88a4 926d）名古屋営業所（96bc 8cc3 89ae 8963 8bc6 8f8a）
最終的にshift_jisで並び替えをして表示したいのですが
excelの文字列をshift_jisに変換する方法はどうしたらいいでしょうか？

>>858
目的を果たすためには

�@セルの文字列を取得する
�A取得した文字列のShift_JISコードを取得する
�B取得したコードをセルに書き込む

という流れになるわけだが､�Aは>>2の★3,★4にもある通り
Excelとは関係無いのでスレ違い
よって､ここで教えるとしたら�@と�Bのみだけど､それでも良いの？

そもそもExcelって普通に文字列比較したら何順になるの？SJISで並ばないならUTF16か？気にしたことがなかったは

If〜ElseIfを使ってユーザーフォーム1が開かれていなかった場合、スルーして次の動作に移るようにするにはどうすればいいでしょうか？

マクロ１年生です。
職場で使う工程管理表を作成しています。

下のような、ガントチャート風（？）の工程管理表を作っています。
横軸は時間、作業者の名前が縦に並んだ表で、
”各人に割り当てられた[仕事]や[休憩]などをオートシェイプのテキストボックスで作成”し、
表の上に置くことで全体の工程を管理する、という表です。

　　　　　　０９　　１０　　１１　　１２　　１３　　１４
Aさん　　　[仕事１]　　　　　[　休憩　]
Bさん　　　　　[ 仕事２ ]　　　　　　[　休憩　]
Cさん　　　[　　　　仕事３　　　　]　[　休憩　]

この表を作成し使用する上で非常に手間がかかる、
”各人に割り当てられた[仕事]や[休憩]などをオートシェイプのテキストボックスで作成”
という部分をマクロを使って素早くできないか、と考えています。

イメージとしては、マクロを実行すると、
”仕事内容は？”　”必要時間は？”
という質問が出てきて、それに対して答えを入力すると、
仕事内容が書かれたテキストボックスが、必要時間に合った幅で作成される、
というようなものを作りたいと考えています。

・質問と回答のフォームが表示される
・テキストボックスを作成しそこに文字を入れる

というマクロを作ったことが無いのですが、どんなキーワードで検索すれば、
参考になるサイト等が出てくるでしょうか？
教えてエロいひと！！

服を脱ぎます

>862
オートシェイプのテキストボックスでなければならない必要は何ですか？
評判の悪い「エクセル方眼紙」風の使い方になるけど、１０分や１５分単位に列をせばめておいて、
ユーザーフォームへの入力内容の結果を受けて、当該時間の範囲のセルを結合させ、結合セルの
中に文字を入れる方法じゃダメですか？　時間の単位が５分単位とか？

>>862
見事に自問自答してるじゃん。やりたいことがそれだけはっきりしてるなら一つ一つやっていったらいいよ。
検索は自分で言ってる言葉でまずググってみればいい。大抵のことはヒットすると思うよ。
ただ工程管理表なんてのはよくあるからある程度近いもののサンプルが多分見つかる気がするけど。。

>862
×　必要
○　理由
ついでに、セルを利用したものだと、時間の重複のチェックもわりと簡単にできます。
セルに割り当てる時間の最小単位を１５分と仮定します。
ある時刻〜15:15　がすでに「仕事２」に設定されていて、続いて15:00〜15:30を
「休憩」に設定しようとしたとき、15:00〜15:15に割り当てられたセルはすでに
結合セルになっているor当該セルに値がある　と判定できます。
※ある時刻が14:00などの場合、１行×５列のセル結合になっている
※ある時刻が15:00だった場合はセルの結合には該当しないけど、当該セルには"仕事２"という文字が入ってる

>865
私は>862さんではありません。

>865
自問自答　を　自演乙　って意味にとらえてしまった。気を悪くされてたらすいません。勘違いです。もう寝ます。

>>864
ご指摘の通り、セルの結合も考えてみたのですが、、、、
時間が10分単位で、使うのがおっさんばかりで細かいセルを見れないので、
テキストボックスを作って置くというやり方をしています。
仕事が増えたり減ったり伸びたりが非常に多く、簡単な操作で対応出来る点も大切です。
オートシェイプ扱えるようになりたいというのも、どうでもいい理由なんですけどね。
"ユーザーフォーム"というキーワードが知りたかったものでした。
ありがとうございます。

>>865
オートシェイプ
ユーザーフォーム
とりあえずググってみます。

こんな時間のありがとうございます。

>>868
結局セルの上にテキストボックスを貼り付けるのなら、テキストボックスの文字も
見難くなるような気がするんだけど。
セルが見難いのならセルの高さをもっと大きくして、表示するフォントのポイントも大きく設定すればいいんじゃね？

セルを扱うよりオートシェープの扱いのほうがめんどくさい気もするし。
セルの結合なんてたいそうなことせずにセルに色つければ済むんじゃないかな。
仕事別に色分けすれば見やすいだろうし。

>868
１０分で１列となってるセルを手作業で結合させるんなら「細かい作業だからおっさんには無理」なんだろうけど
ユーザーフォームで時間を入れてマクロで結合させる方法なら「細かい作業」はないよ。
オートシェイプの方が位置とサイズをドット（？）単位で指定しなきゃならないし、処理対象のオートシェイプの
判断は大変でしょ。（新規はともかく、変更に伴うサイズ変更対象テキストボックスはどれ？）

質問なのですが、VBAで変数名そのものを文字列として認識させる方法ってありますか？

ないよ

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

キーワードググったら、とりあえず思った位置にオートシェイプを作成することはでました。
あとはユーザーフォームの勉強をします。
ありがとうございます。

>>869
テキストボックスの中の文字は確かに見にくいですが、
それよりも多くの行を見渡すことでチーム全体の進捗を把握出来ることのほうが重要なんです。
ディスプレイが大きければ解決するんですけどね。
もしくはおっさんじゃなくて若者を起用するかw

>>869,870
・やっぱり時間が伸びそうだな → オートシェイプの端をドラッグして幅を広くする
・この仕事は他の人にやってもらおう → オートシェイプをドラッグして移動
工程の計画だけでなく、進捗をモニターしつつ、次の工程を作成するという使い方なので、
頻繁に書いたり消したり、伸ばしたり縮めたり、移動したりします。
オートシェイプの場合はこれらのことを直感的に行うことができるので使っています。
サッカーの作戦会議を、ホワイトボードの上で選手に見たてたマグネットを使ってやるような感じです。

だったらそもそもExcelでやるなという意見も出そうですが・・・・

勤務表がExcelなので、勤務表からその日に出勤している人をピックアップして、
工程表に名前を貼り付けて、シフトごとに並べるということをしています。
というわけでExcelを使っています。

条件によって該当する値を返すVBを作ってみました。
=sif（条件1,値1,条件2,値2,条件3,値3,…,条件n,値n,値n+1）
条件Xを満たすときは値Xを、該当無しの場合は値n+1を返す

Public Function sif(ParamArray params())
　Dim c As Integer
　Dim max As Integer
　max = UBound(params())
　For c = 0 To max Step 2
　　If c = max Then
　　　sif = params(c)
　　Else
　　　If params(c) = True Then
　　　　sif = params(c + 1)
　　　　GoTo Break
　　　ElseIf c = max - 1 Then
　　　　sif = CVErr(xlErrNA)
　　　End If
　　End If
　Next
Break:
End Function

条件が14個まではOKなのですが、15個以上になるとエラーになります。原因は何でしょうか？

いつも思うんだが、エラーになるって言ってる奴、なんでそのエラーメッセージを示そうとしないのだろうか。
エラーの場所も言わないし

エラー内容は？