Excel VBA質問スレ Part8

Excel VBA質問スレ Pa ..

49:デフォルトの名無しさん
08/08/31 11:43:56
>>47
あんた優しいな。
経験皆無なわけないじゃん。
>>42が授業聞いてないだけだよ。

50:ｙ
08/08/31 11:48:33
>>45
GroupItemsプロパティから、そのグループに含まれているすべてのシェイプのコレクションを取得できます。
グループを解除する前に、その情報をCollection型変数にでも保管しておいて、
それぞれのテキストを書き換えた後、その情報をもとに再びグループ化すれば、グループ名を使わずに実現できます。

>>48, >>49
情報系の学生で、ちょっとでも他の言語の経験があれば何とかなるかも
あとは>>42の頑張り次第ですね。

51:デフォルトの名無しさん
08/08/31 12:28:05
参考書とか期限みたら意味ないことくらいわかるでしょ
コードくれよ

52:デフォルトの名無しさん
08/08/31 12:32:00
納期〆切寸前の苦しみを自力できりぬけんのが一番の経験だからな。
おまえのことをおもって、今後誰もレスをせんだろうな。

53:デフォルトの名無しさん
08/08/31 13:11:22
yウゼー

54:ｙ
08/08/31 13:46:53
>>41
それについて私も気になってました。>>16に書いてある方法を自分でも
調べていたんですが、シェイプに「keyプロパティ」ってあるんでしたっけ？　
オブジェクトブラウザで探しても見つかりません。

55:45
08/08/31 15:17:38
質問を変えます。
複数のグループ化されたオートシェイプのうちの一つを指定するのに
ActiveSheet.Shapes("Group 526").Select のようにではなく、例えばRange（"B5")の上に掛かってるグループを指定する、
というような方法はありますか？
シートもどんどん複写して使いますので名前やインデックスだと手に負えない気がします。

56:デフォルトの名無しさん
08/08/31 15:59:55
>>53
役に立ちそうで立たないからな。

57:デフォルトの名無しさん
08/08/31 17:56:34
コテつけてくれてるんだから見たくない奴はNG指定しろ
それすらできないなら文句言うな

58:デフォルトの名無しさん
08/08/31 22:36:57
>>16
>>54
keyプロパティはないけどidプロパティでシェイプを特定できるから、(id,座標)のような配列や
コレクションを用意しておいて座標<->シェイプの関連づけをすれば解決するんじゃないかな。

59:デフォルトの名無しさん
08/09/01 03:45:00
>>55
TopLeftCell プロパティとか BottomRightCell プロパティを利用するのだと思います

60:デフォルトの名無しさん
08/09/02 00:34:42
Excel.Excel.Excel

61:デフォルトの名無しさん
08/09/02 00:49:54
顧客名簿を作ったのですが、2000件近くなり電話番号で検索できるようにしたいと思っています
で、ユーザーフォームで「電話番号入力」欄を作り、そこに電話番号を入れて「検索」ボタンを押すと、
電話番号が一致した「顧客名」、「住所」を同じユーザーフォームに表示するようにしたいのですが、
どんなコードを使うと良いのかヒントを教えていただけませんか？

シートには、

　　　　　A　　　　　　　　　B　　　　　　　　　　　　C　　　　　　　D
　　　　顧客名　　　　電話番号　　　　　　　　住所１　　　　住所２
１　　　あいだ　　　　　090xxxxxxxxx　　　　東京都　　　　杉並区
２　　　いとう　　　　　　080xxxxxxxx　　　　北海道　　　　札幌市

という風に記入しています

B1の電話番号「090xxxxxxxx」を「電話番号入力」欄に入れて「検索」ボタンを押すと
「顧客名」　あいだ
「住所１」　東京都
「住所２」　杉並区
という風に表示できるようにしたいのです。

Excelは、2000
OSは、Winddows XP SP3です

62:デフォルトの名無しさん
08/09/02 00:51:35
いちおうユーザーフォームを使って形だけは作って、
「検索」ボタンを押すと該当するデータがない場合にメッセージが出るようにはしたのですが、
そこから先が（というか、ほとんど進んでいないのですが）見当がつきません

63:デフォルトの名無しさん
08/09/02 02:35:21
Findで電話番号を検索して行位置を取得
あとはCellsでデータを取ればいい

64:デフォルトの名無しさん
08/09/02 18:47:07
ChDir ThisWorkbook.Path
Chdrive ThisWorkbook.Path　とやって作成した奴を
他人のPCで実行させても同じフォルダ内のファイルを探せなくてエラーが出ます。
デスクトップのフォルダで動作させても
msgbox　ThisWorkbook.Pathでは～￥Tempとなっています。
ユーザー設定のカレントは空白にしても変わりません。
XPの2003で作成し、会社の2007では動作しましたが他のPCのXP、2003で発生します。
どのように対処すべきですか？

65:デフォルトの名無しさん
08/09/02 20:52:52
日本語でおｋ

66:64
08/09/02 22:13:35
要は、デスクトップで起動させたブックのThisWorkbook.Pathが
なぜ関係ないC:\～￥～￥Tempになってしまうのか？ってことです。

67:デフォルトの名無しさん
08/09/02 23:44:42
>>64
OfficeXP・2003からOffice2007にアップグレードすればおｋ

68:デフォルトの名無しさん
08/09/03 19:41:38
EXCEL2007です。
以下のコードで、実行時エラー1004「アプリケーション定義または
オブジェクト定義のエラーです」になります。
何が原因でしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim o16 As Integer
Dim o1 As Integer
Dim rgbnum As Integer
r = Target.Row
c = Target.Column

　　省略

rgbnum = o16 * 16 + o1
Range(Cells(r, c - 1), Cells(r, c - 1)).Value = rgbnum　←ここでエラー
End Sub

69:デフォルトの名無しさん
08/09/03 21:50:31
cがゼロになってるとか

70:デフォルトの名無しさん
08/09/03 21:51:17
cがゼロじゃなくて、cが1だからCells(r, c - 1)が存在しないとこを参照してるってことね

71:デフォルトの名無しさん
08/09/03 23:46:30
VBAを1週間前から勉強していて、すごーく簡単なプログラムは作れるようになったのですが、
いまいち理解しているのかどうかがわかりません。
勉強の仕方はネットで調べながら・・・なのですが、
みなさんはどのように勉強してましたか？
課題をもらえるとやりやすいのですが、一人でやってると自分が何をしているのか
わからなくなります。覚えるコツなどありましたら教えてください。

72:デフォルトの名無しさん
08/09/03 23:53:34
>>71
興味あるものを作るところから始めたら？

仕事なら、覚えるしかないからかえってそういう事を悩まずにすむけど。

73:デフォルトの名無しさん
08/09/03 23:57:43
>>71
おれはシューティングゲーム→ギャルゲー→RPGと作って
無駄な時間をすごした。

74:デフォルトの名無しさん
08/09/04 03:13:53
俺はVB→ExcelVBAだったから特に勉強とかしてないけど、
VBは最初はいろんな小物ツールとかつくって覚えたなぁ。

75:デフォルトの名無しさん
08/09/04 03:29:37
ExcelVBAだったらExcelオブジェクトを理解することが重要だけど、
VBA全体を勉強したいならWin32APIやWindowsCOMオブジェクト
についても勉強する必要があると思うなぁ。
最初はコードが公開されているサンプルを眺めたり流用して何か
役に立つものを作ったらいいと思う。その内にコードが公開されて
いないけど実現したい機能とかも自力で作成できるようになるよ。
Officeだったらコードが公開されていなくてもパスワードクラックの
ツールがあるからそれ使ってちょっと高度なコードにも目を通すと
いいかも。

76:デフォルトの名無しさん
08/09/04 03:57:22
結局ダジャレかよ

77:デフォルトの名無しさん
08/09/04 11:53:25
>>71
質問掲示板の「回答者」になるのが良いでしょう。
どの掲示板が良いかは自分で判断して下さい。

別に書き込まなくても良いので、色々な方のコードと自分のコードを比較する事が勉強になる。

78:デフォルトの名無しさん
08/09/04 16:15:58
VBAでオブジェクト指向プログラミングできるの？

79:デフォルトの名無しさん
08/09/04 18:43:38
むしろ、VBAはOO言語だろ

80:デフォルトの名無しさん
08/09/04 19:18:16
まあOO言語としてはかなり不完全だけど
分類的にはOO言語寄りではあるな

81:68
08/09/04 19:49:36
>>69,70
レスありがとうございます。
cはゼロにも１にもなっていないですが・・・。

82:デフォルトの名無しさん
08/09/04 20:41:23
1つのセルが対象なのにrangeで範囲選択してんの？

83:デフォルトの名無しさん
08/09/04 20:45:17
いいじゃまいか

84:デフォルトの名無しさん
08/09/04 21:56:37
うーん。出先なんで確認取れないんだけど、
sheets(hoge).range(
の形でどうかな？
sheet changeイベントで、rangeオブジェクトが保持してるシート名が対象rangeと異なるからエラー出してるとか。

適当だけどｗ

85:デフォルトの名無しさん
08/09/04 22:23:24
>>71
体系だった入門書を通読しろよ、糞ゆとりが

86:デフォルトの名無しさん
08/09/04 22:44:22
cellsに修飾が足りないな、きっと

87:デフォルトの名無しさん
08/09/04 23:45:43
>>68
ｃに1が入った場合の処理をしていないから
Changeイベントループして最終的に >>70の言う事になってるだけ

88:デフォルトの名無しさん
08/09/05 00:09:51
toggleMerge("A1:A5")
という命令でA1:A5の範囲のセルを結合させたり結合解除させたいのですが、
実行させても何も起こりません。エラーすら起こりません。
ばらして同様のことをやるとちゃんと動きます。何が悪いのでしょうか。

以下そのコード
Sub toggling(ByRef obj As Variant)
obj = Not obj
End Sub
Sub toggleMerge(ByVal str$)
toggling Range(str).mergeCells
End Sub

89:デフォルトの名無しさん
08/09/05 00:35:04
スレ違いとは思うのですが助けてください
モジュールで有効な変数宣言しようとすると
Dimとか打ってたらエラーダイアログが0.2秒ぐらいで６連続くらい連発して打ち切れない
Excel2008なんだけど構文チェックスピード早すぎて打てない
どうしたらいいのか教えて頂けないでしょうか

90:デフォルトの名無しさん
08/09/05 00:46:23
>>68
"c"にミスがないのであれば

Sheets(hoge).Range((Sheets(hoge).Cells(r, c - 1), Sheets(hoge).Cells(r, c - 1)).Value = rgbnum
↑のようにしてみてはいかがか

91:デフォルトの名無しさん
08/09/05 00:50:36
すみませんが
ｽﾚﾘﾝｸ(slotj板)
のスレで確率についてバトルしています

問題はサイコロで1が8回連続して出る確率です
バカが多すぎて疲れました
頭の良い皆様、論破してください
お願いします

92:デフォルトの名無しさん
08/09/05 01:15:08
>>90
Worksheet_Changeイベントに記述しているから
セルに値を入れる前にイベント発生を止める処理を入れるか

cが0にならないようにする処理を入れないと
Changeイベントが連鎖してエラーになる

93:デフォルトの名無しさん
08/09/05 01:20:01
>>89
めっちゃ早く打つ

94:デフォルトの名無しさん
08/09/05 01:28:59
質問するのは全然かまわないんだけどさ、質問スレだからな。
でもさ、質問する前に日本語で質問できるようになってから来いよな。
たのむから。

95:デフォルトの名無しさん
08/09/05 02:00:19
>>92
なるほど。ちょっと賢くなりました。

96:68
08/09/05 08:57:53
みなさん、レスありがとうございます。
cが特定の値の時にしか、
セルに値を入れないようにしたら
うまくいきましたm(__)m

97:y
08/09/05 17:45:41
>>88

おやっ、と思うようなコードですね。
たぶん、MergeCellsプロパティの「実体」を、togglingプロシージャに
参照渡しして、そこからプロパティを操作しようと考えたのでしょうか。
偶然かもしれませんが、なかなか珍しい間違い方をしていると思います。

toggling Range(str).MergeCells

というコードは、
①MergeCellsプロパティを読み出した結果得られた値について、
②その値をtogglingプロシージャに渡す、
という２段階の処理として実行されます。単純に
「MergeCellsプロパティを、togglingプロシージャに渡す」
わけではありません。

Range(str).MergeCells で取得できるのは、プロパティの実体ではなく、
実体を読み出した結果であり、"True"もしくは"False"というただの値です。
この時点で、実体との関係は断たれてしまっているので、
その値をtogglingに参照渡しして、それを反転させても、
プロパティそのものを操作することにはなりません。

プロパティを操作する場合は、次のように直接操作するようにしてください。

Sub toggleMerge(ByVal str$)
　Range(str).MergeCells = Not (Range(str).MergeCells)
End Sub

98:y
08/09/05 18:04:43
>>89
何をした瞬間エラーメッセージが出た、というあたりをもう少し詳しく。>93w

>>58
ありがとうございます。やっぱりKeyプロパティはないんですね。

99:デフォルトの名無しさん
08/09/05 20:14:32
何言ってんだこいつ

100:デフォルトの名無しさん
08/09/05 23:31:49
>>97
どうもありがとうございます。
Boolean型のオブジェクトを渡していたからだったのですね。
でもできれば、汎用的にtoggleプロシージャをつかって実装したいです。
Sub toggle(ByRef obj As Variant, ByVal propertyName$)
obj.propertyName = Not obj.PropertyName
End Sub

という感じです。

そこで、新たに質問なのですが、”.”を使わずにプロパティを参照するには
どのようにすればいいのでしょうか。
たとえば、Javascriptだとobj["PropertyName"]でプロパティ参照できるのですが、
VBAには類似の呼び出し方法は存在しているのでしょうか。

101:デフォルトの名無しさん
08/09/05 23:43:02
ちょっと早めに知りたいので、
ｽﾚﾘﾝｸ(bsoft板)l50x
こちらのほうでも同様の質問をしようと思います。

マルチポストはするな、といわれたくないため、先に宣言しておきます。

102:デフォルトの名無しさん
08/09/05 23:50:31
VBAではインクリメントは a = a+1 と記述するしかないですか？
a += 1
a ++
はだめでした。
（下は別言語なので当然ですが・・・。）

103:デフォルトの名無しさん
08/09/06 00:39:09
>>100
CallByName

>>102
諦めろ。

104:デフォルトの名無しさん
08/09/06 01:25:11
hint : overload

105:デフォルトの名無しさん
08/09/06 02:05:01
Ａ列のセルに入力があればＡ列の中で同じ入力がないか検索する
というマクロを作ろうと思っているのですが、セルの入力判定の方法を教えていただけないでしょうか？
宜しくお願いします。

106:デフォルトの名無しさん
08/09/06 03:17:52
もっと具体的に

107:105
08/09/06 07:39:52
説明が抽象的になってしまいすいません。
A列からF列までそれぞれの列に情報を入力してリストを作っているのですが、
既に何百行も情報を入力していて、都合上同じ情報を追加で入力してしまう恐れがあり、
現在は毎回入力の前にCtrl+Fの検索で既に入力された情報かどうか調べています。
そこでA列のセルに入力があれば入力されたセルより上の既に入力された全てのセルの文字列と比較して、
既に同じ入力があればエラーメッセージを出すというマクロを作りたい次第です。

マクロを作成するにあたって、「A列に入力があれば」という部分をどう書けばいいかわからなかった為質問させていただきました。

A列に同じ情報が入力されるという事は都合上絶対に有り得ない事なのでA列のセルを比較しようと考えています。
・A列には1行目から空白なく順番に情報が入力されている。
・新規に入力する際は現在のリストの最終行の次の行に情報を入力している。
という条件があるので、A列に入力があればというよりA列の最終行の次の行に文字が入力されればという方が正しいかもしれません。

説明が下手で申し訳ありません。
宜しくお願いします。

108:デフォルトの名無しさん
08/09/06 09:22:13
>>107
Worksheet_SelectionChange

109:デフォルトの名無しさん
08/09/06 09:27:52
リアルタイムのイベントハンドラかぁ・・・。
VBAって自分でイベントの作成は出来るのかな。あまり詳しくないんで分からないや：（

若干重くなるけど、sheetのchangeイベントで、セルを移動した時に、A列の最終行の内容と同じ物をチェックするとか。
うーん・・・あまり美しくないよね。

自分でイベント作成出来るのか、私も知りたいです。
詳しい人お願いします。

110:デフォルトの名無しさん
08/09/06 10:56:04
>>103
ありがとうございました。

111:105
08/09/06 14:30:52
>>108,109
アドバイスをくださってありがとうございます。
参考にマクロを組んでみようと思います。

112:デフォルトの名無しさん
08/09/06 14:45:53
>>107

重複データがあるかないかを調べるだけでよければ
VBA使わなくても条件付き書式でできる。

113:デフォルトの名無しさん
08/09/06 16:14:55
Excelの VBA の関数の呼び出し方法が分かりませんので、誰か教えて戴けませんでしょうか？
　Ｃ　では
// 関数の定義
void abc(void)
// メインルーチン
void main(void)
{
// 関数名
abc();
}
void abc(void)
{
---
}

上記の方法で関数を呼び出そうとして、
Sub 名前()
abc()
End Sub

:abc()
---
return
上記記載の方法では動きませんでした。
素人な問い合わせで申し訳ありませんが宜しくお願いします。

114:デフォルトの名無しさん
08/09/06 16:25:59
関数なんだからなんらか値を返す
仮にintegerの型でパラメータを受取ってintegerの何かを返すとして
Sub 名前()
Dim a as integer
Dim param as integer
param=100 ←何かの数字(integerの範囲内）
a = abc(param)

End Sub

Function abc(param as integer) as inetger
～

abc = **** ←何か処理した結果のintegerの数字
End Function

115:デフォルトの名無しさん
08/09/06 17:04:48
<<114
113 です。早速のお教え有難う御座います。
なんらか値を返す様に変更します。

116:デフォルトの名無しさん
08/09/06 17:10:04
>>113のCのコードを何も考えずにVBAにするとこうだぞ。
Sub main()
　　 Call abc()
End Sub

Sub abc()
　　 ---
End Sub
戻り値の型がvoidの関数はSub、それ以外はFunction。
戻り値を受け取らない場合、Sub/FunctionにかかわらずCallを付ける（Call使わない記法もあるけど）。

117:デフォルトの名無しさん
08/09/06 17:30:42
>>116
113 です。いろいろお教え戴き有難う御座います。
この方法が簡単なので採用させて戴きます。

118:デフォルトの名無しさん
08/09/06 18:07:40
>>114
>>116
113 です。プログラム作成途中ですが、両方とも必要になりましたので、
共に採用させて戴きます。いろいろと、有難う御座いました。

119:デフォルトの名無しさん
08/09/06 21:14:05
ｽﾚﾘﾝｸ(tech板:878番)

120:デフォルトの名無しさん
08/09/06 23:37:07
関数は、なんらかの値をかえすべきであるという考えた方が
身に染み付いてるから、SubとVoid関数は非常にきもちわるい。

121:デフォルトの名無しさん
08/09/06 23:38:23
要するに時代遅れですね

122:デフォルトの名無しさん
08/09/07 00:36:46
かえり値もたない関数は、デバッグがむずかしくなるから、医療系の俺の会社じゃ
よほどのことがないかぎり作らない。むしろ１２１がしろうと

123:デフォルトの名無しさん
08/09/07 00:52:19
>>122
VBAスレで恥ずかしい事いうなよおっさん。

124:デフォルトの名無しさん
08/09/07 01:49:03
LispとかMLでの話なら>>120 >>122も分かるが、
VBAで純粋関数型プログラミングは無茶があるだろ、常識的に考えて。

125:89
08/09/07 03:31:47
むっちゃ早く打つ案に似た解決策で自己解決しました。
必殺コピペです。
グローバルエリアに変数定義しようとしたらDimと打った時点でエラーメッセージが頻発
変数書こうとしても打っている途中でメッセージ頻発して書けない。
どこかにエラーチェックのタイミングプロパティがあると思うがコピペで解決したから諦めようかと思います

126:デフォルトの名無しさん
08/09/07 07:55:30
そういや、functionしか存在しない言語もあるな。

127:デフォルトの名無しさん
08/09/07 10:23:41
よくいるんだよね。VBにしかVariant型がないと思ってる自称上級者

128:デフォルトの名無しさん
08/09/07 14:27:52
ファイルを開かずにアクティブシートを変更するにはどうしたら良いでしょうか。

AccessのTransferSpreadsheetでエクセルの任意シートへデータを出力していますが、
エクセルファイルを開いた時に、値を出力したシートがアクティブになっているようにしたいのです。

129:128
08/09/07 14:30:04
ついでに読み取り専用属性の操作もできればサイコーです

130:デフォルトの名無しさん
08/09/07 14:45:07
please tell ass in Japanese...

Sheets("hoge").Activate
Sheets("hoge").SaveAs "c:\hoge.xlsx", xlWorkbookNormal, , , True

131:128
08/09/07 15:15:51
えー、ファイルを開かない状態でアクティブシートを変更したいのです。
そのやり方だとインデックスエラーになっちゃうんですけど。

132:デフォルトの名無しさん
08/09/07 15:26:27
Excelオブジェクト生成
ファイルオープン（非表示）
シートをアクティブにする
保存

133:デフォルトの名無しさん
08/09/07 15:30:41
ここっていちいち一から百まで説明しないといけないから疲れるな
結局ファイルを開かなきゃいけないってことですね。どうもありがとうございました。

134:デフォルトの名無しさん
08/09/07 15:39:47
偉そうに言ってますな w

135:デフォルトの名無しさん
08/09/07 15:45:40
そりゃそうだ。エスパーなんてここにはいない。

136:デフォルトの名無しさん
08/09/07 15:46:46
ここの奴らほとんど、ろくな知識も無いのに
知ったか振っててうざいんだもん
これぐらい言わせなよ

137:デフォルトの名無しさん
08/09/07 15:51:18
うわぁ・・・低脳すぎて煽るきにもならない

138:128
08/09/07 15:52:01
あと別におまえらがエスパーである必要はねーけど
言われた事から、相手がなぜそうしたいのか、ではどういう方法が適切かくらい想像しろよ、と思うね
おまえら自分の知ってることが唯一の回答であるようにこじつけてるだけだろ。
そういうのをバカの一つ覚えって言うんだよ。
でも回答ありがとう。じゃね。

139:デフォルトの名無しさん
08/09/07 15:52:32
っていうかxlsファイルを開くのとExcelのGUIを開くのを同じことだと思っている低脳っているんだね

140:>137
08/09/07 15:53:30
じゃあ書くなよウスノロｗ

141:デフォルトの名無しさん
08/09/07 15:53:47
うわぁ・・・ひどい池沼ですね・・・

142:デフォルトの名無しさん
08/09/07 15:55:07
日本語で質問できるようになったら書き込みしような。

143:デフォルトの名無しさん
08/09/07 15:56:22
高卒とかFランは書き込みできないようなフィルタかけてくれよ

144:デフォルトの名無しさん
08/09/07 15:59:21
盛り上がってますね

145:デフォルトの名無しさん
08/09/07 16:01:56
>>133
最低限1から5くらいまで説明しようぜ。
俺らお前のお母さんじゃないんだからよ。

146:デフォルトの名無しさん
08/09/07 16:02:48
というより、
出来ないことは出来ないと説明した上で代替案を示すなら
ここまで荒れないと思うのだが。
条件に反することを回答するからこうなる

147:デフォルトの名無しさん
08/09/07 16:03:39
>>132
でできると思うぜ。

148:デフォルトの名無しさん
08/09/07 16:10:34
>>145
えっ？
>128を1から5くらいの説明で理解できるのか？
最近のお母さんてスペック高いんだな！

149:デフォルトの名無しさん
08/09/07 16:11:33
OBJ.FileOpenは知ってたけどコードがごちゃごちゃするから嫌いなのよ。
他にもっとシンプルなやり方が無いのかな、って思っただけ。

150:デフォルトの名無しさん
08/09/07 16:12:30
>>147
非表示だけど、ファイル開いてるからNGだろ。
想像力のない俺からすれば、元の質問自体がNGだけどな。

151:デフォルトの名無しさん
08/09/07 16:13:04
変な知ったかいいわけ始めたぞ

152:デフォルトの名無しさん
08/09/07 16:14:32

ファイル開かずにファイルを変更するなんて方法があったら俺が知りたいな

153:デフォルトの名無しさん
08/09/07 16:16:31
128ってそんなに難しいか
まさかとは思うがプログラム板なのにAccessのVBAを知らん奴がいるのか

154:デフォルトの名無しさん
08/09/07 16:20:31
簡単だぞ。質問がヘタなだけ。で質問の答えに対して実装できるスキルもないだけ。

155:デフォルトの名無しさん
08/09/07 16:23:38
要するに低脳というわけですね。分かります。

156:デフォルトの名無しさん
08/09/07 16:24:49
盛り上がってますなあ

157:128
08/09/07 16:38:58
結局お前らAccessVBAが理解できなかっただけ佳代ｗ
低能エクセル厨乙ｗ

158:デフォルトの名無しさん
08/09/07 16:49:47
スレタイ100回音読してみろ。
それから自分の質問と回答を100回音読しろ。

159:デフォルトの名無しさん
08/09/07 16:56:43
下手な釣りだなあ。次の質問どうぞ。

160:デフォルトの名無しさん
08/09/07 18:49:05
>>128
が見えない

161:デフォルトの名無しさん
08/09/07 20:20:00
excel vba 極めたいのですけど
お勧めの参考書はありますか？元制御系プログラマで
プログラミングの基本は充分できています。
技術評論社のポケットリファレンスはどうですか？

162:デフォルトの名無しさん
08/09/07 20:25:06
便乗質問・・・。

win32APIを勉強したいのですが、お勧めの本ってありますか？
使用目的はExcel VBAで呼び出す事です。

163:デフォルトの名無しさん
08/09/07 20:29:47
Excel VBAによるWin32 APIプログラミング入門 (単行本)

ぐぐることも出来ないの？

164:デフォルトの名無しさん
08/09/07 23:32:31
質問者も回答者もバカが多いな

165:デフォルトの名無しさん
08/09/08 00:05:08
お前ほどじゃないがな

166:デフォルトの名無しさん
08/09/08 03:03:14
だな

167:デフォルトの名無しさん
08/09/08 03:08:05
157 名前：128[] 投稿日：2008/09/07(日) 16:38:58
結局お前らAccessVBAが理解できなかっただけ佳代ｗ
低能エクセル厨乙ｗ

こいつリアルでもこんな感じなんだろうな

168:デフォルトの名無しさん
08/09/08 07:45:44
>>162
マジレスするとWin32APIの為に本を買うのはもったいない。
MSDNとネット上のAPIサンプル集とかで十分。

169:デフォルトの名無しさん
08/09/08 19:00:04
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
上のようなことの逆は可能ですか？
　
　例えば、セルAに映画のタイトルが縦に並んでて、
セルBにはその映画の詳細が見れるHPアドレスが沢山並んでます。
　セルBのそれぞれのアドレスを、セルAに一括でハイパーリンクさせる（埋め込む）
方法が知りたいです。
　ご教授、宜しくお願い致します。

170:デフォルトの名無しさん
08/09/08 19:41:35
ｽﾚﾘﾝｸ(bsoft板:238番)

171:デフォルトの名無しさん
08/09/08 20:08:18
>>170
循環参照になってる

172:デフォルトの名無しさん
08/09/08 20:09:26
笑！

173:y
08/09/08 20:21:47
>>169

セルB1にあるアドレスを、セルA1にハイパーリンクとして埋め込むのは、
次のようにすればできます。

Sheet1.Hyperlinks.Add Anchor:=Cells(1, "a"), _
　Address:=Range(1, "b"), _
　TextToDisplay:=Cells(1, "a").Value

（マクロの記録を使って、ハイパーリンクを埋め込む動作を記録してみれば簡単です）

これをループで括って、「1」となっているところ（これは行番号にあたります）を
変えていけば、お好みの行数分操作できます。

174:y
08/09/08 20:25:13
あ！　すみません。
169はマルチポストだったんですね。
気づかずに答えてしまいました。

>>169
Wikipedia項目ﾘﾝｸ
一度ここを読んでおいてください。

175:デフォルトの名無しさん
08/09/08 20:29:35
> Range(1, "b")
？

176:y
08/09/08 20:29:41
さらに自分のレスの間違いに気づきました。
Address:=Range(1,"b") → Address:=Cells(1,"b")

177:169
08/09/08 21:03:00
>>173 マルチ悪かった。
　ツール→マクロ→VBA→標準モジュールに保存した後、
マクロ実行してみたけどできません。
初心者なんでもう少し詳しく教えていただけませんか？

178:169
08/09/08 21:54:01
1行だけできましたけど、
行数分操作ができません。
Cells(1, "a"),
1の部分の範囲指定はどうすればいいの？

179:169
08/09/08 21:55:21
できればセルを範囲指定して、マクロ実行で
一括で変更できると助かります

180:デフォルトの名無しさん
08/09/08 22:01:32
ググレ

181:デフォルトの名無しさん
08/09/08 22:27:39
>>180
いろいろ調べてもわからねぇよ
質問スレなんだから聞いてるんだろ。。意地悪しねぇで教えろよ。
　その気がないなら返信するな

182:デフォルトの名無しさん
08/09/08 22:45:30
>>179=>>169=>>こないだの池沼　

な

183:デフォルトの名無しさん
08/09/08 22:46:16
>>181=>>179=>>169=>>こないだの池沼

184:デフォルトの名無しさん
08/09/08 23:16:26
モーグでも行けよ池沼

185:デフォルトの名無しさん
08/09/08 23:40:48
で、また169が暴れるのか？

186:デフォルトの名無しさん
08/09/08 23:43:52
>>181=>>179=>>169=>>184=>>こないだの池沼

187:デフォルトの名無しさん
08/09/09 01:33:11
XMLファイルをVBAで扱いたいんですけど、そういった方面を勉強できるような書籍はないでしょうか。
「XML入門」みたいな本はたくさん見るんですけど、あれって具体的なコーディングについては記述が無いorごく少ないですよね。。。
あってもPHPとかばっかりだし。。。

188:デフォルトの名無しさん
08/09/09 08:48:08
書籍があってもバカじゃどうしようも無い
まともな頭があればVBAでCOM(XMLDOM)使ってXML扱うくらい、
ネットの情報だけで事足りる

189:デフォルトの名無しさん
08/09/09 10:31:32
あるセルからあるセルまでソルバーを使うということをやりたいのですが、
↓のを作ったのですが、出来ません。どうすればいいですか？
SOLVERの参照設定はやりました。

Sub Macro1()

Dim x As Integer

For x = 1 To 5
Range("Cells(x, 3)").Select
SolverOk SetCell:=Cells(x, 5), MaxMinVal:=3, ValueOf:="0", ByChange:=Cells(x, 2)
SolverSolve Userfinish:=True
Next x

End Sub

190:y
08/09/09 19:35:50
>>177

173の後半を、もう少し具体的に書きます。
まずループ用の変数rを宣言し、ここでは例として
For ～ Next間を5回繰り返すループを示しておきます。

Dim r as Long
For r = 1 to 5
　Sheet1.Hyperlinks.Add Anchor:=Cells(r, "a"), _
　　Address:=Cells(r, "b"), _
　　TextToDisplay:=Cells(r, "a").Value
Next

繰り返しのたびに、rは1, 2, 3, 4, 5と変化していくので、
上のコードでは1～5行目に対する操作が行われることになります。
初心者の方なら、「VBA デバッグ」などで検索してみて、この過程を
一つ一つ目で確認する方法を身につけると、上達が早くなります。

For r = Inputbox("開始行？") to InputBox("終了行？")
とすれば、処理をしたい行の範囲を簡単に指定できますが、
もっと便利にしたければ、自分でも他の方法を色々調べてみてください。

質問する時は、どんなに間違っていてもいいので、とにかく何か自分なりに
調べて考えたコードを貼って、それに対するアドバイスを求めた方がいいですよ。
181のようなことを書くと、>>1の★5にあるように、「また丸投げか」と
怒りを買ってしまいます。

191:y
08/09/09 20:01:47
>>189

マクロの記録を使って、ソルバーでやりたい作業をマウスでやってみて、
どんなコードが記録されるか確かめてみてください。(>>1★5)

189のコードについては、
①単純な構文ミス　Range("Cells(x, 3)").Select → Cells(x, 3).Select
②目的セルをどこにしたいのか、可変セルをどこにしたいかが不明
です。特に、②が分からないとアドバイスができません。

192:y
08/09/09 20:03:56
>189

「>>1★6」でした。失礼しました。

193:デフォルトの名無しさん
08/09/09 20:44:23
>>190
　ご親切にありがとうございました。
勉強になりました

194:デフォルトの名無しさん
08/09/09 22:41:34
>>191
すみません
目的のセルがCells(x, 5)で、可変セルがCells(x, 2)のつもりでした。

で、①のやつをやったら出来ました。
ありがとうございました。

195:デフォルトの名無しさん
08/09/09 22:50:31
VBA初心者です

何か作ろうと思うのですが…自分では思いつかないので…
何か問題お願いします。

196:デフォルトの名無しさん
08/09/09 22:57:53
>>195
このスレを集計してyの貢献度を調査せよ。

197:195
08/09/09 23:04:59
>>196
ﾗｼﾞｬ

198:デフォルトの名無しさん
08/09/09 23:34:22
式を教えてください。

Ａ列には文章が入っています。
Ｂ列には文章に含まれる単語、Ｃ列にはコード番号が入っています。
それぞれ数百～数千行になります。
Ａ列にはＢ列の単語のいずれかが含まれる場合には、
単語に対応するＣ列のコードをＤ列に表示させたいのですが、
どのような式がよいでしょうか。

VLOOLUPやFINDなどを組み合わせてみても上手くいきません。
お手数ですが、どなたか至急お教え願えますでしょうか。

199:デフォルトの名無しさん
08/09/10 00:31:40
具体的なセルの中身教えろよ
このスットコドッコイ

200:デフォルトの名無しさん
08/09/10 07:26:43
Ａ列…デフォルトの名無しさん、具体的なセルの中身教えろよ、このスットコドッコイ
Ｂ列…デフォルト、セル、スットコドッコイ
Ｃ列…E46194、H23t55、342421

201:デフォルトの名無しさん
08/09/10 07:44:07
ここはExcel VBAのスレです

202:デフォルトの名無しさん
08/09/11 00:16:48
XPでExcel2003です

c:\aaa 配下にある全てのファイルとサブフォルダを
c:\bbb 配下に全てコピーする事は可能ですか？

また、サンプルコード等ありましたらヒントを頂けると助かります
色々と探してはいるのですが、いまいちピンとこないので
サンプルがあると助かるのですが、、、、

ＶＢＡはまだまだ初心者なので未熟者で恐縮です。

203:デフォルトの名無しさん
08/09/11 06:12:54
>>202
>>1★3 ★4

204:デフォルトの名無しさん
08/09/11 19:30:31
たまにmougヲチするんだけど、痛い回答者が多いのね。

205:デフォルトの名無しさん
08/09/11 19:59:47
シートにコンボボックスを貼り付けて
AddItemで追加した後にシートを
Ｘボタンを押して閉じようとすると
変更を保存しますかと聞かれるんですが
このチェックを外す方法ってあります？

ＯＳはＸＰでExcel2003です。

206:y
08/09/11 20:15:03
>>198
文章中の、特定の単語の有無の判定なら、たぶんInStr関数で何とかなると思います。
調べてみて使えそうなら使ってください。
>199にもありますが、具体的なデータが分からないとアドバイスしずらいです...

207:y
08/09/11 20:17:20
>>195
どんな業界で働いている方か分かりませんが、
実務に役立つ知識が増すようなテーマを選ぶと、
何かと都合がいいのではないでしょうか。

為替、株式市況、地価、青果水産物市況など、
ネット上にはたくさんの生データが公開されています。
それらを自動的に取得し、テーマに沿って演算し、
レポートを出力するマクロを組むだけでも、
相当勉強になると思います。

やるのであれば、日々刻々と変化する数字の方が面白いです。
例えばある人は、東京に１０数箇所ある中央卸売市場の毎日の市況データを
取得し、各市場の卸売価格差をグラフに出力するマクロを作っていました。
仲買業者なら、どこの市場で買い付けをすれば一番安いか、
逆に生産者なら、どこの市場に出荷すれば一番高いか、
一目で分かるというものです。ちなみに彼は商社に勤めていますが、
似たようなことをしている人は結構いるでしょう。

Excelは基本的にデータ処理の道具なので、何を試すにしても、
まずは題材になるデータを見つけてこなければなりません。
ならば自分が、分析対象として最も興味を覚えるデータを選ぶのがベターです。
その上で、自分のスキルに応じた試行錯誤をしてみればいいと思います。
仮に「VBA解説書に載っている多機能な家計簿を作るんだ」と決意したとして、
自分で小遣い帳をつけているほどの人ならともかく、付属ＣＤに入っている
仮想データを使って作っていくようなやり方は、モチベーションが湧きづらい
ように感じます。

208:デフォルトの名無しさん
08/09/11 22:02:38
あれ今日y絶好調だな

209:デフォルトの名無しさん
08/09/11 23:07:26
>>206
×しずらい
○しづらい
◎しにくい

210:デフォルトの名無しさん
08/09/12 01:38:18
>>195
WindowsVBAつくってよ

211:デフォルトの名無しさん
08/09/12 03:36:31
yには、人生相談にすら答えてくれそうな勢いを感じる

212:y
08/09/12 20:05:30
>>205
「シートをＸボタンを押して閉じようとすると」とありますが、
シートに×ボタンはないので、たぶん「ブックを」のつもりでしょうか。

「変更を保存しますか」というメッセージは、ブックを保存した直後の状態であれば
表示されません。この状態は、WorkbookオブジェクトのSavedプロパティをTrueに
することで、強制的に作り出すことができます。
ブックが閉じられる直前に、その操作が自動で行われるようするためには、
ThisWorkbookオブジェクトのコード領域にBeforeCloseイベントを挿入し、
その中でSavedプロパティを操作します。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　ThisWorkbook.Saved = True
End Sub

213:デフォルトの名無しさん
08/09/12 20:44:06
うざいな

214:デフォルトの名無しさん
08/09/12 20:51:26
>>213
お前がな

215:205
08/09/12 22:35:11
なるほど。Savedプロパティですか。
ありがとうございました。

216:デフォルトの名無しさん
08/09/13 00:10:19
確かにうざいわ

217:y
08/09/13 02:54:40
・・・

218:デフォルトの名無しさん
08/09/13 03:49:12
何コイツ

219:デフォルトの名無しさん
08/09/13 06:49:48
煽りなんか気にすんな。

220:デフォルトの名無しさん
08/09/13 07:14:09
未だに169が粘着してる

221:デフォルトの名無しさん
08/09/13 08:56:37
>>217は、マジでうざいなｗ

222:デフォルトの名無しさん
08/09/13 09:06:33
まぁ、2chではあまり見ないキャラであることは確かだな。
嫌ならNGしとけ。

223:デフォルトの名無しさん
08/09/13 09:25:58
凄い粘着だな。。。おい。

224:デフォルトの名無しさん
08/09/13 10:01:34
>>218-223をNG指定した

225:デフォルトの名無しさん
08/09/13 11:55:22
マクロなんですけど、行挿入のマクロを作りたいんです。
だけど、挿入する行をセルの値から指定したい場合はどうすればよいですか？
例
B2 = 3
3行目と４行目の間に行挿入をするようB2をつかってさせる。

226:デフォルトの名無しさん
08/09/13 13:16:55
Dim i As Integer
i = Range("B2")
Rows(i).Insert

227:デフォルトの名無しさん
08/09/13 13:18:30
これだけでもいけるな

Rows(Range("B2")).Insert

228:デフォルトの名無しさん
08/09/13 14:07:04
>>226-227
助かります、ありがとうございました。

229:y
08/09/13 16:13:47
・・・

230:デフォルトの名無しさん
08/09/13 22:03:03
yそろそろコテにしたら？なりすましが出るくらい名が知れてきたんだからさ

231:デフォルトの名無しさん
08/09/13 22:16:44
yがコテじゃなかったら何だと言うのだ

232:デフォルトの名無しさん
08/09/13 22:33:41
トリップつけたら？ってことじゃね？

233:デフォルトの名無しさん
08/09/13 23:38:26
いい加減、ｙの話題やめろよ

234:デフォルトの名無しさん
08/09/14 00:06:42
うざすぎ

235:デフォルトの名無しさん
08/09/14 03:08:08
エクセルのシートに画像をドラッグした時に、指定場所に指定のサイズに変換したいのですができますか？

また、工事管理を行っていて、工期の数日前になると警告文が出るようにできるのでしょうか？

236:デフォルトの名無しさん
08/09/14 05:20:37
> エクセルのシートに画像をドラッグした時に、指定場所に指定のサイズに変換したいのですができますか？
「シートに画像をドラッグした時に」というイベントが用意されてないから、
「ドラッグした」ら自動で処理するってのは無理
「シートに画像をドラッグしてからボタンを押したら」なら可能だが

> また、工事管理を行っていて、工期の数日前になると警告文が出るようにできるのでしょうか？
可能だがExcelでやるべきことじゃないな
Excelでやるってことは、Excelとその警告マクロを作ったブックを立ち上げてないと警告文出ないわけだし
やるとすれば、「n日前」ではなく、「n日前以降、最初にExcelを立ち上げたとき」という条件になるかな

237:デフォルトの名無しさん
08/09/14 16:10:42
前者：できない
後者：できない

238:デフォルトの名無しさん
08/09/14 17:37:16
EXCEL関数についてお教えください

あいうえお（abc）
かきくけ（ほげほげ）
さしすせそたちつ（nekdk）

という行がありまして、（）とその中の文字列だけを全部消したいです。
（）は全角です。（）内の文字、文字数数がことなるので置換が使えないでいます。。

239:デフォルトの名無しさん
08/09/14 18:02:25
マッチコレクション

240:デフォルトの名無しさん
08/09/14 18:10:17
>>238
>>1 ★2

241:デフォルトの名無しさん
08/09/14 21:03:02
>>238

関数ではないけど
ツール→区切り位置で区切り文字を（にすると
（の前後で別のセルに分かれるからそれではダメかな？

242:デフォルトの名無しさん
08/09/14 22:58:50
　ＶＢＡで検索システム的なものを作っています。
行き詰ってしまったので何かアドバイスをいただければと思います。
ＯＳはＸＰでエクセルのバージョンは２００２です。よろしくお願いします。
　ブック内に「メイン画面」「情報A」「情報B」という３つのシートがあります。
「メイン画面」のB5セルに会員番号(K_Ban)を入力してマクロを実行すると「情報A」「情報B」から該当の会員番号に関する情報が「メイン画面」の任意のセルに代入されるというものです。
ただし「メイン画面」の形式の都合で、該当する「情報A」のうち、上から３件のみを出力させて４件目以降はカットしています。（下記コード参照）
「情報B」は「種別」という項目があり、「野菜」「肉類」「魚類」…などの分類が３０種類ほどあります。
「情報B」についても、各種別毎に３件目以降はカットしたいのですが、行き詰っています。
すなわち、会員番号１について「情報B」は３０件あり、野菜２５件、肉類５件があるとすると
「メイン画面」には野菜３件、肉類３件分の情報を出力させたいのです。
また、種別については、今後随時変更があるので「種別毎に変数を設定して直接数える」のではないようなコードにしたいと思っています。

243:デフォルトの名無しさん
08/09/14 23:00:25
Public Sub 検索()

Dim K_Ban As String
Dim MyRange As Range
Dim MyAddress As String
Dim cnt As Integer

K_Ban = Worksheets("メイン画面").Range("B5")
Set MyRange = Worksheets("情報A").Range("A1:A50").Find(K_Ban, LookAt:=xlWhole)
MyAddress = MyRange.Address
cnt = 8

Do
Worksheets("メイン画面").Cells(cnt, 3) = MyRange.Offset(0, 0).Value
Worksheets("メイン画面").Cells(cnt, 4) = MyRange.Offset(0, 1).Value
Worksheets("メイン画面").Cells(cnt, 5) = MyRange.Offset(0, 2).Value
cnt = cnt + 1

If cnt = 11 Then
Exit Do
End If
Set MyRange = Worksheets("情報A").Range("A1:A50").FindNext(MyRange)
Loop Until MyRange.Address = MyAddress
End Sub

244:デフォルトの名無しさん
08/09/14 23:25:44
シートの構造書くか、Bookをどこかにアップ

245:デフォルトの名無しさん
08/09/15 08:41:27
だよな普通

246:y
08/09/15 11:18:44
>>242

　　 |Ａ列.　　　　　|Ｂ列.　　　　|Ｃ列.　　　　|Ｄ列.　　　　|Ｅ列.　　　　
01　 | 0123456789| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
02　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
03　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
04　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
05　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　

シート内のデータ内容を説明するために、以前こんなテンプレを使っている人がいました。
「情報Ａ」「情報Ｂ」シートの中身を、文章で説明するより楽だと思ったら使ってください。

247:242
08/09/15 13:54:22
>>244-246
以下のようなシート構造で、種別→日付で並べ替えてあります。

A　　　　　B 　　C　　　　D
番号　種別データ１データ２
1　　　　肉類　豚肉　　20080915
1　　　　肉類　牛肉　　20080912
1　　　　肉類　鶏肉　　20080801
1　　　　魚類　その他　20080401
2　　　　肉類　猪肉　　20080905
2　　　　野菜　その他　20080802

248:y
08/09/15 16:03:53
>>247
Sub Sample()
　Dim K_Ban As Long: K_Ban = Worksheets("メイン画面").Range("B5")
　Dim r As Long
　Dim shubetsu As String
　Dim shubetsuCnt As Integer
　With ThisWorkbook.Sheets("情報Ｂ")
　　.Range(.Cells(1, 1), .Cells(.Rows.Count, 4).End(xlUp)).AutoFilter Field:=1, Criteria1:=K_Ban
　　r = 2
　　Do While .Cells(r, 1) <> ""
　　　If .Rows(r).Hidden = False Then
　　　　If shubetsu <> .Cells(r, 2) Then
　　　　　shubetsu = .Cells(r, 2)
　　　　　shubetsuCnt = 1
　　　　ElseIf shubetsuCnt < 3 Then
　　　　　shubetsuCnt = shubetsuCnt + 1
　　　　Else
　　　　　.Rows(r).Hidden = True
　　　　End If
　　　End If
　　　r = r + 1
　　Loop
　　.Range(.Cells(2, 1), .Cells(.Rows.Count, 4).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy _
　　　Destination:=ThisWorkbook.Sheets("メイン画面").Cells(8, 3) '←任意のコピー先セル
　　.AutoFilterMode = False
　End With
End Sub

249:y
08/09/15 16:04:42
上のコードは、条件に合わない行を非表示にしていき、最終的に表示されている行だけを
「メイン画面」の任意のセルにコピーする、という考え方です。デバッガでステップ実行していけば、
不要な行が非表示になっていく様子がよく分かると思います。不便なところは改良してみてください。
なお、データは「種別→日付で並べ替えてあります」とありますが、見たところ「番号→種別→日付」で並んで
いますね。上のコードは、そう並んでいる必要があります。

他のやり方を提案する方もいるかもしれませんので、そちらも参考にしてください。

250:デフォルトの名無しさん
08/09/15 18:09:00
先日行挿入について質問したものです。
C3で指定した値の行に行を挿入して、D3,Fj,D3で与えた値を挿入した行のHi、Fi,Iiに値を入れたいのですが、どこが間違っていますでしょうか、ご指摘お願いします。
Sub Main

Rows(Range("C3")).Insert

Dim i As Integer
Dim j As Integer
i = Range("C3")
Range("D3").Copy Destination:=Range("Hi")
j = i-1
Range("Fj").Copy Destination:=Range("Fi")
i = Range("E3")
Range("D3").Copy Destination:=Range("Ii")

END SUB
このように作ったのですが、うまくいきません。

251:デフォルトの名無しさん
08/09/15 18:39:29
>>250
まず、Range("Hi")というセルの指定のやり方はない
Rangeを使いたいんなら、Range("H" & i )
ほかには、Cells(i, 8)、もしくは、Cells(i, "H")

解説サイトいっぱいあるから基本的とこから少し勉強したほうがいいよ

次ページ