Excel VBA 質問スレ Part14

Excel VBA 質問スレ P ..

96:デフォルトの名無しさん
10/01/22 02:33:51
2003,xpです。
あるセルにオートシェイブで図形が書かれているか判定したいのですが、どのようにすれば判定できますか？宜しくお願いします。

97:デフォルトの名無しさん
10/01/22 06:15:42
シェイプにはbottomrightcellプロパティ
topleftcellプロパティが有るから
それ使えばいい

98:デフォルトの名無しさん
10/01/22 09:54:06
>>96
Shapes.Count

99:デフォルトの名無しさん
10/01/22 10:23:12
>>96
参考に
URLﾘﾝｸ(oshiete.gogaku-ryugaku.net)

100:デフォルトの名無しさん
10/01/23 12:32:06
ある文字から何番目の行になるか出すIF文はあるのでしょうか

「見出し項目」
製品A
製品B
　・
製品X
「小計」
のような並びになっている時に、小計から、見出し項目までの行を数えて、
何個の製品名があるかを出したいのですが、よく分かりませんでした。
よろしくお願いします。

101:100
10/01/23 12:36:32
説明が抜けていました。

「見出し項目」
・・
「小計」
で対になる並びは、複数ありますので、
小計から、直近の見出し項目までの行数を出したのですが、
そのようなやり方があれば、お願いします。

102:デフォルトの名無しさん
10/01/23 12:42:27
>>101
If文だけじゃ無理。不可能じゃないけど効率が悪すぎる。普通はWhile文を使う。

103:デフォルトの名無しさん
10/01/23 12:43:09
97,98,99
ありがとう、解決しました

104:デフォルトの名無しさん
10/01/23 14:43:05
キーボードから１０個数字を入力し、その数字の中から最大値を｢最大値｣という文字とともに
メッセージボックスで表示するのはどう書けば良いんでしょうか。
恐らくMaxSearch()を使えば良いという事は分かるのですが、書き方が分かりません・・・。
どなたかご教授願います。

105:デフォルトの名無しさん
10/01/23 15:06:41
excel vba maxsearch
で検索してみれ

106:104
10/01/23 15:45:29
>>105
検索もしてみたのですがアドウェア関係ばかり出てしまい、肝心のVBAは全然出ないのです
ひとつそれらしき物がありましたが、どうにも私には理解できず・・・

107:デフォルトの名無しさん
10/01/23 16:40:44
=Max(Search("<70 And >=50",A1:A10))
じゃ、vbaの本でも立ち読みしてくれば

108:デフォルトの名無しさん
10/01/23 19:53:51
VBAのプロファイラ、みたいなのどーやったらいいの？

マクロや自作関数を組み込みすぎて重たくなりすぎた

109:デフォルトの名無しさん
10/01/23 22:04:09
>>108
全くのプログラム無知なんですが
面倒だけど
メッセージボックスそれぞれに書いとくのは駄目ですかね

110:デフォルトの名無しさん
10/01/23 23:43:08
オートフィルターで質問です。

オートフィルターを解除したいのですが、
その方法自体は問題ないのですが、フィルターがかかっていないときに
それをやるとエラーになるので、フィルターがかかっているいないの
判定ができる方法か、エラーがでない方法は無いでしょうか？

111:デフォルトの名無しさん
10/01/24 05:24:03
MsgBox Worksheets("Sheet1").AutoFilterMode

112:デフォルトの名無しさん
10/01/24 11:45:01
On Error Gotoでエラーを無視するという方法もある。
バカっぽいのでおすすめしないが、ちゃんとした方法をいちいち調べるのが面倒な時はたまに使う。

113:デフォルトの名無しさん
10/01/24 12:07:11
On Error Resume Next じゃねーの？

114:デフォルトの名無しさん
10/01/24 17:22:43
バカっぽいので無視する

115:デフォルトの名無しさん
10/01/24 21:37:20
無条件で一度、オートフィルターを解除するとか

116:デフォルトの名無しさん
10/01/25 01:17:38
Excel2007でフォーム上にシートを表示（スプレッドシート？）
できない様なのですが、同じような機能ってありますか？

シートは閲覧のみでも大丈夫です。
どなたかご指導よろしくお願いします。

117:デフォルトの名無しさん
10/01/25 19:16:10
ロダにあげる→開く　でブラウザからシート表示できる

118:デフォルトの名無しさん
10/01/25 20:06:43
横からすみません。
いま、得点の集計シートを作っているのですが、
1位のセルを赤の太枠で囲むということをやろうとしています。
で、
If Target.Column <> 4 Then Exit Sub '4列目(D列)以外の変更は考慮しない。

i = Target.Row
If Cells(i, 7).Value = "1" Then
'1行x3列の範囲を選択する
Range(Cells(i, 1), Cells(i, 6)).Select
'太い赤枠で囲む
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
というところまではできたのですが、初めの「4列目の1行目から12行目までに数値が入力され、
その中で最大の数の場合に実行する」という条件がどうしてもわからず・・・
お知恵を貸していただければ助かります。

119:デフォルトの名無しさん
10/01/25 23:01:34
>>117
回答感謝します。
それはフォーム上全て操作できるものなのでしょうか？
なんとか調べて試してみます。ありがとうございました。

120:デフォルトの名無しさん
10/01/25 23:47:42
>>118
ワークシート関数　MAX

121:デフォルトの名無しさん
10/01/26 00:00:12
>>110
オートフィルターでソートしてるときだけ解除

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

122:デフォルトの名無しさん
10/01/27 10:19:27
ActiveCellの上と下の空白セルを選択したいです。

A1 あああ
A2 (空白)
A3 (空白)
A4 [ActiveCell]
A5 (空白)
A6 いいい

のとき実行すると、A2～A5が選択された状態になる、を期待しています。
よろしくお願いいたします。

123:デフォルトの名無しさん
10/01/27 12:45:02
With Selection
.NumgerFormat = "@"
.Replace What:="hogehoge", Replacement:="01"
End With

このようなコードを書いたのですが、実行して見てみるとセルの書式自体は
文字列型になっているのにも関わらず表示は"1"となってしまっています

"01"と表示させたいのですが、何故こんなことになってしまうのでしょうか？
また、解決策も教えていただきたいです

よろしくお願いします！

124:デフォルトの名無しさん
10/01/27 12:47:08
>>122
1） ActiveCell.Rowで行番号取得。
2） 1行目かを判定し、違えば1)の行番号-1から1までForでまわして非空白チェック。
3）非空白がヒットしたらその行番号＋1を変数に保持してExit For　ヒットしなければ1を変数を保持。
4） ActiveCellが最終行かを判定し、違えば1）の行番号+1からCells.Rows.CountまでForでまわしてチェック。
5）非空白ヒットすれば行番号-1を変数に保持してExit。（しなければCells.Rows.Count）
6） 3）と5）の変数を使って目的範囲をSelect

125:デフォルトの名無しさん
10/01/27 21:33:26
>>122
Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select

126:デフォルトの名無しさん
10/01/28 12:31:46
どなたか>>123わかる方、よろしくお願いします。何卒…

127:デフォルトの名無しさん
10/01/28 13:26:32
>126
Ａ列ずらっと　hogehoge　とか　00hogehoge　10hogehoge　などいくつか入れてみて、
Ａ列まとめてセルの表示形式を文字列にしておいて、
[Ctrl]＋[Ｈ]で　hogehoge　を　01　に置換してみるとわかります。
hogehoge、00hogehoge　→　1
10hogehoge　→　1001
というように、手作業での置換も同じ結果です。

selectionのvalueを変数に転記してから
.value = replace(変数,"hogehoge","01")
みたいにしたらどうですか？

128:デフォルトの名無しさん
10/01/28 13:47:17
>>127
試してみます！
もし詰まっちゃったらまた質問させてください
ありがとうございました！

129:デフォルトの名無しさん
10/01/28 16:18:28
>>123
これ、なんでできないんだろうな。ちゃんと文字列型にした後に値入れてんのに

130:デフォルトの名無しさん
10/01/28 17:35:15
手動でやるとこんなコードになる

Selection.NumberFormatLocal = "@"
ActiveCell.FormulaR1C1 = "01"

131:デフォルトの名無しさん
10/01/28 17:40:43
すまそ、Replaceの問題なのか

ならば、いったん文字を取り込んで書き直すんじゃないの

132:デフォルトの名無しさん
10/01/29 03:26:32
Replaceしてから書式設定したらどうなるんだ？

133:デフォルトの名無しさん
10/01/29 10:52:38
>>132
そりゃ"1"になるに決まってるよ

134:デフォルトの名無しさん
10/01/29 14:40:22
結局文字形式で数字を
セルに入れたいときは
FOR～で回すしか手がないんか

135:sage
10/01/30 00:50:08
2003,xpです

ある列"A"にオートシェイブで1行目から"○"が各行のセルに表示されていて、
"○"が表示されなくなったら"○"を次の行のセルに表示させようとしています。
　bottomrightcell,topleftcellなど使ってみましたがうまくいきません。

　どのようなプログラムにしたらよいでしょうか？どなたか宜しくお願いします。

136:デフォルトの名無しさん
10/01/30 09:13:46
セルの左上の座標
(x, y) = (Cells(R, C).Left, Cells(R, C).Top)
セルの右下の座標
(x, y) = (Cells(R, C).Left + Cells(R, C).Width, Cells(R, C).Top + Cells(R, C).Heigth)

137:デフォルトの名無しさん
10/01/30 15:02:59
社内ＬＡＮを組んでいます
ブックＡのマクロでブックＢを編集し、保存するマクロがあります
他人がブックＢを編集していると読み取り専用でブックＢを開いてしまい保存する段階でエラーとなります
他人がブックＢを編集中であるかどうか判定するにはどうすればよいでしょうか？

138:デフォルトの名無しさん
10/01/30 15:06:44
URLﾘﾝｸ(sanryu.net)

139:デフォルトの名無しさん
10/01/30 15:16:46
>>138
解決しました
ありがとうございました

140:デフォルトの名無しさん
10/01/30 17:53:56
16進数を扱うデータリストを作っています

E0～E9の段(224～233)がExcelの仕様で勝手に指数関数と見なされて「0.00E+00」などという表記をされてしまいます
それは16進数のE0であって10進数の224の事なんですと…
同様のことが16進数のEが挟まる度に頻繁に生じます

VBAのマクロで文字列矯正をすることで対処できそうですがどんなコードで対処できますか？
御指南くださいませ

141:デフォルトの名無しさん
10/01/30 18:00:45
>>140
セルの書式を文字列にしておく

142:デフォルトの名無しさん
10/01/30 18:05:17
>>141
扱う量と試行回数が今後も継続的に多くなるからその案は駄目です
指数を無効にさせることが目的なので

URLﾘﾝｸ(soudan1.biglobe.ne.jp)
ググったらこんなようなのが見つかったんだけど上手く作動できてない
コード合ってるのかな？
csv開く時に指数無効で文字列で読んでくれないと困るぅぅぅ

143:デフォルトの名無しさん
10/01/30 18:37:26
テキストで読み込み、カンマでスプリットする

144:デフォルトの名無しさん
10/01/30 18:41:41
URLﾘﾝｸ(www.f3.dion.ne.jp)
こんな現象が起きてると予想

145:デフォルトの名無しさん
10/01/30 19:46:14
csvを読み込んで、
セルの書式を文字列にしてセルに再書き込みでは？

146:kaimiyu
10/01/31 07:13:11
マクロ、VBA超初心者ですが、仕事で必要とされているのでがんばります。
さて、質問ですが、
現在、エクセルからリンクをはって、テキストコマンド(バーコードプリンタに印字させるコマンド)
を開き、そこからプリンタを選択して印字しておりますが、それだと手間なので、マクロやVBAで
エクセル上にボタンを作成し、そのボタンを一回押すだけで、印字までできますか？

補足ですが、テキストコマンドは、エクセルシートとは別のテキストファイルです。
よろしくお願いします。

147:デフォルトの名無しさん
10/01/31 07:43:36
★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

148:kaimiyu
10/01/31 08:13:37
147
どうもありがとうございます。
マクロでもやってみたのですが、別ファイルを開くまででとまってしまい、
それから、印刷→プリンタ指定→印刷実行は手動で行っています。
それをエクセルのボタンから一発でやりたいのですが。。。可能ですか？

149:デフォルトの名無しさん
10/01/31 10:24:10
可能だし
マクロの記録みて

150:デフォルトの名無しさん
10/01/31 14:56:13
印刷専用アプリ起動してそれを操作したいんだろ。だとしたらマクロの記録だけじゃどうやってもだめ。
お手軽なところではSendKeysとか使ってコントロールする方法があるけど、そのままでは動作があまり安定しない。

こういう時はuwscというフリーウェアおすすめ。
ウィンドウやボタンを指定して操作できるからうっかりマウスをさわったり、常駐ソフトがポップアップ出してきても大丈夫。

151:デフォルトの名無しさん
10/01/31 18:15:01
どなたかお願い致します。
フォーム上で、textbox(技術検索番号)に入力した番号をシート（全データ）のB列から検索し、シート内の番号と
同じ行の各種データをフォーム上の対応したtextboxに返すというプログラムを作成しています。
以下のプログラムは書いてみたんですが、実行すると既に選択されているセルの情報ばかり返ってきます。
番号と一致したセルをアクティブにすればいいかなと思ったんですが…いまいち分かりません。
宜しくお願い致します。

Private Sub 技術検索ボタン_Click()
Dim sn As String
Dim sa As Range
'検索番号とエリアの設定
sn = 技術検索番号.Value
Set sa = Sheets("全データ").Range("B4").End(xlDown)
'検索の処理
With Sheets("全データ")
Set found = Worksheets("全データ").Cells.Find(sn, , xlValues)
'見つからない場合の処理
If found Is Nothing Then
MsgBox ("技術コードが見つかりません。")
'見つかった場合の処理
Else
Me.会社名表示.Value = Cells(ActiveCell.Row, 4)
Me.処理機郵便番号表示.Value = Cells(ActiveCell.Row, 5)
Me.処理機住所表示.Value = Cells(ActiveCell.Row, 6)
Me.電話番号表示.Value = Cells(ActiveCell.Row, 10)
Me.メールアドレス表示.Value = Cells(ActiveCell.Row, 9)
Me.事業区分表示.Value = Cells(ActiveCell.Row, 11)
End If
End With
End Sub

152:デフォルトの名無しさん
10/01/31 18:39:31
>>151
ActiveCell.Row　を　found.Row へ変更

153:デフォルトの名無しさん
10/01/31 18:39:40
>>151
動作確認してないけど、こうじゃないかな

Me.会社名表示.Value = Cells(found.Row, 4)
Me.処理機郵便番号表示.Value = Cells(found.Row, 5)
Me.処理機住所表示.Value = Cells(found.Row, 6)
Me.電話番号表示.Value = Cells(found.Row, 10)
Me.メールアドレス表示.Value = Cells(found.Row, 9)
Me.事業区分表示.Value = Cells(found.Row, 11)

154:デフォルトの名無しさん
10/01/31 19:01:32
>>152
>>153
お二人ともありがとうございます！
実行してみたところ、正常に動きました。
ちょっと感動しました。

違うシートがアクティブ（実際"全シート"は隠します）な時にも検索
できるようにしたいしたいので、ちょっと模索してきます。
わからなかったらまた質問させてください。
ありがとうございました。

155:デフォルトの名無しさん
10/01/31 19:22:10
>>154
今のままで、できるんじゃないかい？

156:デフォルトの名無しさん
10/01/31 20:06:09
>>155
他のシート（セルも）がアクティブになっていた場合なんですが、
なぜかtextboxに値が出てきませんでした。

’見つからない場合の処理’は出来てたんですが…

なので確実にするためにシートを定義してActivateしました。
ご指摘ありがとうございます。

157:デフォルトの名無しさん
10/01/31 20:16:26
>>156
With Sheets("全データ")
があるんだからそれを活用して

Me.会社名表示.Value = .Cells(found.Row, 4)
のように

Cellsの前に　ドットをつける

158:デフォルトの名無しさん
10/01/31 20:36:15
>>157
さっき自分でやった方法と違い、フォームの後ろで
シートが切り替わらなくても検索できました！
感謝します。

と同時にもう少し勉強が必要だと痛感しました…

159:デフォルトの名無しさん
10/02/01 03:47:36
エクセル2007.ＸＰ．
質問です。よろしくお願いします。詳しい方ぜひ教えてください。

VBAによるあるサイトの自動ログインについてです。

よさげなサイトを発見してためしてみたのですがよくわかりませんでした。

URLﾘﾝｸ(kikky.net)

このプログラムの途中にかいてある下記の意味がわかりません。
'form.id部分はサイトのソースに合わせる
'form.password部分はサイトのソースに合わせる
'form部分はサイトのソースに合わせる

解る方いたらおしえてください。よろしくおねがいします。

また、使用例としてyahooでの自動ログインのやり方を少しおしえていただきたいのです、
すみませんがよろしくお願いします。

160:デフォルトの名無しさん
10/02/01 06:10:06
URLﾘﾝｸ(www.ken3.org)

161:デフォルトの名無しさん
10/02/01 10:34:29
>>156
foundはRangeオブジェクトなんだから、わざわざ行番号を取得する必要はない。
行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。
Me.会社名表示.Value = .Cells(ActiveCell.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

162:デフォルトの名無しさん
10/02/01 10:36:09
間違った。
Me.会社名表示.Value = .Cells(founfl.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

163:デフォルトの名無しさん
10/02/01 18:34:00
>>162
offsetも一度検討してたんですが、その時もActiveCellで考えてました。
ありがとうございます。

＞行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。
大変参考になりました！頭に叩き込んどきます

164:デフォルトの名無しさん
10/02/01 22:50:34
ログインが必要なファイルサーバにファイルをコピーしたいのですが
ファイルサーバへの接続が上手くいきません。

どなたかアドバイスお願いします。

165:デフォルトの名無しさん
10/02/01 23:00:24
URLﾘﾝｸ(www.moug.net)

166:デフォルトの名無しさん
10/02/02 19:34:59
>>163
欠陥プログラムなんて事は無いから真に受けない方が良いよ。

167:デフォルトの名無しさん
10/02/02 20:12:59
自分も　回り道であるかもしれないけれど
欠陥プログラムは言い過ぎだとおもう
さぞかし >>161 は、綺麗なコードを書いているのだろうね
プロ(笑)なプログラマの言う事は理解できん

168:デフォルトの名無しさん
10/02/03 01:10:19
>>167
別に俺はプロじゃねーし。
まぁプロが行番号なんか使ってたら俺ら素人に笑われるわな。

169:デフォルトの名無さん
10/02/03 15:39:54
html 用の色指定　#FF00FF　とか　#EE82EE　を

VBA用にRGB(250,0,250)の形式に変換したいが、

どんな関数をつかえばいいの？

170:デフォルトの名無しさん
10/02/03 15:44:56
えっ

171:デフォルトの名無しさん
10/02/03 18:35:01
何をしたいのかわからないけど
16進数を10進数にする

172:デフォルトの名無しさん
10/02/03 20:57:32
CLng("&H" & Value)

173:デフォルトの名無さん
10/02/03 22:52:54
>172
謝謝、男毛先

174:デフォルトの名無しさん
10/02/04 08:15:25
>>168
データベースの2次元配列構造を使用する時には、
range.row や range.column を多用するぜ。
と言うか、可読性や速度を考えても、遠回りじゃなくて直線的なロジックだよ。
列は固定で行は変動する場合とかね。

for i = 1 to range.row なんかも欠陥プログラムって言われてる？

175:デフォルトの名無しさん
10/02/04 13:05:09
>>174
>>168じゃないが
rangeオブジェクトから行番号や列番号なんてただの数値を取り出して、その数値をもとにどこのブックのどこのシートのCells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
Rangeオブジェクトならどこのブックのどこのシートかなんて内包されてるんだから、それを利用するのが当然だろう
for i = 1 to cells(rows.count,1).end(xlup).row
なんてのは欠陥というより下手くそだね
セレクトするコードと目くそ鼻くそだよ

176:デフォルトの名無しさん
10/02/04 15:32:43
>>175
目くそ様乙であります！！

177:デフォルトの名無しさん
10/02/04 18:08:46
>>175
引用間違ってるよ。

178:デフォルトの名無しさん
10/02/04 22:24:30
使い捨てのマクロでそんなことにこだわる必要はないが
他人にも使わせるツールなら意識して欲しいかな

しかし、>>151の内容はVBAの必要なくね？
ワークシートにVLOOKUPで十分

179:151
10/02/04 22:40:26
>>178
たしかに今考えればいならいような気がします…

180:151
10/02/04 22:48:16
連投すみません。
さっき、いらないような…と言いましたが、番号が見つからない場合に
MsgBoxでエラーを出したかったんです。
それと、VBAで書きかったっていうのがありまして。

181:デフォルトの名無しさん
10/02/04 22:52:53
>>178
他人に使わせるだけのマクロなら汚くてもいいんじゃない？
分る人にソース見られたとき困るだけ。

182:デフォルトの名無しさん
10/02/05 05:12:07
個人的には lookup系は使わずVBA
それ以外はセル操作で出来るのなら極力
VBAを使わないというのが好き

183:デフォルトの名無しさん
10/02/05 06:44:05
>>151にVLOOKUPはないね。
使い捨てブックならかまわないけど。

184:デフォルトの名無さん
10/02/05 11:49:35
下記で右辺のRGBでコンパイル・エラーargument not optionalがでて
進めません。（XP + Excel2000）

Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array("235,180,200", "255,110,80", "255,0,0")
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)) 'error
Next i
End Sub

185:デフォルトの名無しさん
10/02/05 13:21:40
>>184
文字列を渡してどうする

186:デフォルトの名無しさん
10/02/05 21:18:11
>Cells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
まじか。
俺はOffsetはその値に達するまで内部でループするから遅いだろうと考えていた。
たとえば、
L = 60000
Offset(L)は６万回ループするが、
Cells(L, 0)なら一発でその場所に移動できるのだと。

187:デフォルトの名無しさん
10/02/05 21:18:21
>>184
もっと良いやり方があるかも知れないけれど
現在のコードを尊重する形で考えてみた
下記ではどうでしょう

Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(Array(235, 180, 200), Array(255, 110, 80), Array(255, 0, 0))
For i = 0 To 2
　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
　Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)(0), myIndex(i)(1), myIndex(i)(2))
Next i
End Sub

188:デフォルトの名無さん
10/02/05 23:24:09
>>187,185
ありがとう。こうしました。
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(RGB(235, 180, 200), RGB(255, 110, 80), RGB(255, 0, 0))
For i = 0 To 2
　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
　Selection.ShapeRange.Fill.ForeColor.RGB = myIndex(i)
Next i
End Sub

189:デフォルトの名無しさん
10/02/06 01:32:22
selectしなくてもいいじゃん

190:デフォルトの名無しさん
10/02/06 01:43:19
>>186
ひどい勘違いだな
内部でループなんかするわけないじゃん
とにかくCellsを多用するコードは不細工だ
事前バインドの方が楽で簡潔

191:デフォルトの名無しさん
10/02/06 07:54:23
DBをExcelに展開して作業するんだけど、offsetだけじゃ無理。
cells(foundcell.row,1).value
とか普通に使ってtる。

192:デフォルトの名無しさん
10/02/06 08:27:51
参照設定

193:デフォルトの名無しさん
10/02/06 08:34:39
なんだか、アーリーバインディングを勘違いしてる奴が居るな。
難しい言葉を使おうとしなくていいんだよ。

194:デフォルトの名無しさん
10/02/06 09:56:19
Range.CopyFromRecordset

195:デフォルトの名無しさん
10/02/06 10:15:47
>>193
勘違いしてねーよ。
アーリーバインディングの方がコーディング楽だろ？
お前Cells使ってるのか？

196:デフォルトの名無しさん
10/02/06 16:57:38
ログデータから取得したリストがあり、頭に種別を表す連番1～16が振ってあります。
このリストを上からチェックしていき、種別番号が1ならA列から始まる表に、2ならD列から始まる表に
という具合に、種別ごとの表に落とし込みたいと考えています。
それぞれの列に落とし込むことはできたのですが、貼り付ける行が前の列からの続きになってしまい悩んでいます。
具体的には、A1～A10が種別1、D1～D5が種別2、G1～G10が種別3としたいのに、
A1～A10が種別1、D11～D15が種別2、G16～G20が種別3となってしまうのです。

If hantei = 1 Then
Range("A" & i + 100).Formula = (参照式)

197:196
10/02/06 17:04:34
すみません。途中で書き込んでしまいました；

それぞれの種別表の頭を揃えるには、どうしたら良いでしょうか？
今のところ、それぞれの表でソートをするしかないのかと考えていますが、
状況によりログのリストがどれぐらいの長さまで伸びるか読めないため、
かなりの幅を持たせないといけないので、その表の直下を使えなくなってしまうのが難点です。
何か良い方法があれば、よろしくお願いします。

198:デフォルトの名無しさん
10/02/06 17:06:27
今、画像の表示（サムネイル一覧）や変換（BMP→tiffなど）するソフトを
VBAで作ることを考えています。

画像の表示は、ともかく変換をどうすれば良いか検討がつきません。
ｱﾄﾞﾊﾞｲｽ何か頂けないでしょうか？

OS：WindowsXp Excel：2000

199:デフォルトの名無しさん
10/02/06 17:25:22
>>196

Range("A65536").End(xlUp).Select

200:デフォルトの名無しさん
10/02/06 17:59:03
>>199
2007から行数変わったじゃん

201:デフォルトの名無しさん
10/02/06 20:24:51
行数、列数が拡張されたのは2007の時だけじゃないし
Rows.Countでそのシステムの最大行数が求まる

202:デフォルトの名無しさん
10/02/07 02:14:42
フォームに入力された値で数値計算をするプログラムを組んでいます。

’各テキストボックスが空欄だった時の対処
If Me.YJ1.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ2.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ3.Value = "" Then
MsgBox("空欄があります。")
・
・
・
（YJ23まで）

’（空欄対処の続きで）各テキストボックスが数字以外だったときの対処
ElseIf IsNumeric(YJ1) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ2) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ3) Then
MsgBox("半角数字で入力してください。")
・
・
・
（YJ23まで）
Else
sum_t = YJ1*0.15+YJ1+0.79+　…（YJ23まで）

という風なプログラムを現在組んでいます。
空欄の検出はしてくれるんですが、YJ23まで半角数字なのに"半角数字で…"のエラーが出ます。
半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？

203:デフォルトの名無しさん
10/02/07 03:10:19
URLﾘﾝｸ(homepage1.nifty.com)

204:デフォルトの名無しさん
10/02/07 05:20:15
>>203
ありがとうございます！参考にさせてもらいます！

205:デフォルトの名無しさん
10/02/07 06:26:06
>>195
やっぱり勘違いしてるね。

206:デフォルトの名無しさん
10/02/07 07:03:38
しつこいやっちゃなぁ。
実行時バインドのコードばっか書いてる三流プロか？

207:デフォルトの名無しさん
10/02/07 08:07:23
190のcellsは不細工で事前バインドが云々の解説でもしておくか。
配列とかはおいといて、単純に範囲をループする場合の実行時バインドと事前バインドの一例

もっとも不細工(cells(i,1)の形が実行時バインド)
dim i as long
For i = 1 To cells(rows.count,1).end(xlup).row
　　　If cells(i,1).value="foo" then
　　　　　cells(i,2).hogehoge
　　　end if
Next i

まだまだ不細工(Itemプロパティが実行時バインド)
dim r as range
dim i as long
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for i=1 to r.count
　　　If r.item(i,1).value="foo" then
　　　　　　r.item(i,2).hogehoge
　　　end if
next i

上の二つよりまとも(cは事前バインド)
dim r as range
dim c as range
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for each c in r
　　if c.value="foo" then
　　　　c.offset(,1).hogehoge
　　end if
next c

208:デフォルトの名無しさん
10/02/07 08:10:50
言っとくけどCellsは事前バインドだが、Cellsの後ろに隠れてるItempプロパティ(実際は_Dedaultプロパティ)が実行時バインドね。

209:デフォルトの名無しさん
10/02/07 08:14:34
Selectionを使うのは実行時バインド？

210:デフォルトの名無しさん
10/02/07 08:17:38
(cは事前バインド)は(cもOffsetも事前バインド）だった。

211:デフォルトの名無しさん
10/02/07 08:23:01
>>209
Selectionをそのまま使えば実行時バインドだよ。
ただしSellectionを任意の変数(たとえばセル範囲ならRange型の変数)に格納してその変数を使えば事前バインド。

212:デフォルトの名無しさん
10/02/07 09:27:36
不細工云々はどうでも良いんだけど、
column固定でrowはfoundcellの場合、どうすりゃいいんだよ。

213:デフォルトの名無しさん
10/02/07 10:58:03
>>212
161じゃないけど、発見した行の4列目ならfound.EntireRow.Cells(4)ってことかな？
しかしまぁ>>151は検索範囲がB列と書いていながら、実際のコードは何故か
Set found = Worksheets("全データ").Cells.Find(sn, , xlValues)
と全セルになってるな。

214:デフォルトの名無しさん
10/02/07 11:09:02
>>151をよく見ると心配な点がいっぱいあるね。
技術検索番号ってまさか単純な数字じゃないだろうな。
LookAt:=xlWholeを書いてないと1で10とかも引っ掛かるかるしなぁ。
Withも意味なしてないし。

215:151
10/02/07 13:58:07
>>214
技術検索番号は今のところ10001～10165までの数値です。
おっしゃるとおり10でも10001が検索されてしまっていました。今現在は、皆さんの意見を参考にして

Private Sub 技術検索ボタン_Click()
　Dim sn As String
　 '検索番号の設定
　sn = 技術検索番号.Value
　'検索の処理
　　With Sheets("全データ")
　　　Set found = Worksheets("全データ").Range("B:B").Find(sn, , LookAt:=xlWhole)
　　'見つからない場合の処理
　　If found Is Nothing Then
　　MsgBox ("技術コードが見つかりません。5桁の数字を正しく入力してください。")
　　'見つかった場合の処理（フォーム上のtextboxに値を代入）
　　Else
　　　Me.会社名表示.Value = .Cells(found.Row, 4)
　　　Me.処理機郵便番号表示.Value = .Cells(found.Row, 5)
　　　Me.処理機住所表示.Value = .Cells(found.Row, 6)
　　　Me.電話番号表示.Value = .Cells(found.Row, 10)
　　　Me.メールアドレス表示.Value = .Cells(found.Row, 9)
　　　Me.事業区分表示.Value = .Cells(found.Row, 11)
　　　End If
　　　End With
End Sub

としています。特にエラーは出てないんで、大丈夫そうなのですが…
もし何かありましたら宜しくお願いします。

216:196
10/02/07 14:54:05
>>199
ありがとうございます。
End()を使ったことがなかったので少し手間取りましたが、希望通りの動作をしてくれました。

217:デフォルトの名無しさん
10/02/07 18:48:43
>>215
みなさんの意見って>>161の意見は参考にしてないなｗ
まぁここに限らずよくない方法が採用されるのが掲示板の常なのでしょうがないね。
しかしどうしても行番号使うにしても、５回も同じ行番号を取得しちゃいかんぜよ。
何度も使うものは変数に格納してから使わないと。

参考までに行番号は取得しないで列番号をそのまま使うならこんな方法もある。
Else以下だが
Set found =found.EntireRow.Cells
Me.会社名表示.Value = found(4).Value
Me.処理機郵便番号表示.Value = found(5).Value
Me.処理機住所表示.Value = found.Row(6).Value
Me.電話番号表示.Value = found(10).Value
Me.メールアドレス表示.Value = found(9).Value
Me.事業区分表示.Value = found(11).Value

実行時バインドになるが、Offsetと違って列番号がそのまま使える。
found(4)はfound.Item(4)の略ね。
またSet found =found.EntireRow.Cellsの部分は同じ変数に代入するのがお行儀が悪いって人も稀にいるけどな。
気になるなら別の変数にすればいい。

218:デフォルトの名無しさん
10/02/07 18:54:31
おっとfound.Row(6).Valueは間違いね。

219:デフォルトの名無しさん
10/02/07 21:05:40
>>207
お前、オブジェクトとプロパティが良くわかってないだろ

220:デフォルトの名無しさん
10/02/07 21:27:49
またへんなのが出てきたな。↑
例えばCellsはRangeオブジェクトへの参照を返すプロパティーさ。

221:デフォルトの名無しさん
10/02/07 21:30:59
>>219は自分は何でも分ってて、他人は分ってないと思ってる基地外だな。
もういいから引っ込め。

222:デフォルトの名無しさん
10/02/07 21:50:57
取り込み中のところすんませんけど、一つ教えてください

Excel2007
MsgBox "～" ←このメッセージの部分の文字に色を付けて表示したりする事って出来ますか？

223:デフォルトの名無しさん
10/02/07 22:14:11
出来ないと思う。

URLﾘﾝｸ(www.h3.dion.ne.jp)

ここのアドインを試してみたら？

224:デフォルトの名無しさん
10/02/07 22:31:05
>>223
教えていただき、有難うございます！
調べてみます。

225:デフォルトの名無しさん
10/02/07 23:34:38
俺はVBAは結構できると思っていたが実行時バインドとかまったく意識していなかった。
今日は勉強になった。

226:デフォルトの名無しさん
10/02/08 00:36:40
>俺はVBAは結構できると思っていたが

多分激しく勘違いしてるんだと思ふ。

227:デフォルトの名無しさん
10/02/08 06:30:55
俺も仕事でVBAを4年ほど使ってるけど、まだまだ知らない事が多いんだなぁ。
とつくづく感じた。
VBAが馬鹿にされてるんじゃなくて、俺が馬鹿だったんだ。

228:デフォルトの名無しさん
10/02/08 08:19:12
事前バインドは実行時バインドより速いって認識でいいの？

229:デフォルトの名無しさん
10/02/08 09:11:46
>>228
大体そうだが逆もある。
たとえばRange("A1")とCells(1,1)は１個の処理なら実行時バインドの後者が速い。
ただWithでくくって多くの処理を行うのであれば事前バインドの前者が速いけどな。
速い遅いより、事前バインドならピリオド打って頭の数文字を打てばその打った
文字から始まるメンバが出てくるから、そこから選べばいいから長いメンバ名のときは楽だな。
だからWith Selectionとして多くの処理をするより、適合する型の変数にSelectionをセットして
With 変数とした方が楽だよ。

230:デフォルトの名無しさん
10/02/08 09:15:32
上のピリオド云々はVBEのオプションの自動メンバ表示にチェックがついてるときの話ね。

231:デフォルトの名無しさん
10/02/08 09:58:19
いい加減、お前うざいよ

232:デフォルトの名無しさん
10/02/08 10:00:06
同意。

ﾊﾞｲﾝﾄﾞｦﾀ･･･ｲﾗﾈ

233:デフォルトの名無しさん
10/02/08 10:02:22
別にうざくはないが

234:デフォルトの名無しさん
10/02/08 10:04:01
>>220
で、何を何に「バインド」すんの？

235:デフォルトの名無しさん
10/02/08 10:23:30
VB(A)の世界では、Dim a As Rangeなどと、変数宣言時にオブジェクトの型を指定するのが
事前バインディング、Dim a As Objectと総称型で宣言し、Set a = ...と実行時に変数に結びつけるのが
実行時バインディングというのが普通で、上で言われてるような文脈で使われるのは
初めて見た。
あってるのか、間違ってるのか知らんけど。

236:デフォルトの名無しさん
10/02/08 10:27:45
ちなみに、コンパイルする言語では、コンパイル時に呼び出しを決定できるものが事前バインディングで、
実行時にしか決定できないものを実行時バインディングという。

付け加えると、VBAでは一般に事前バインディングの方が速いというのはその通りで、
オブジェクトを変数に代入しておいて使う方が速いというのもその通り。

ただ、「Selectionをそのまま使えば実行時バインドだよ。」という言い方は初めて見た。
このような使い方をするのかどうかは知らない。

237:デフォルトの名無しさん
10/02/08 10:42:24
測ってみればいいのに。基本は実測だよ。

For i = 0 To 100000
　　' ここにコード
Next

s = Range("A1").Value => 1416ms
s = Cells(1, 1).Value => 670ms
s = r.Cells(1, 1).Value => 858ms '事前にdim r as range, set r = range("A1")を実行

結論：
Cells(x, x)を使わない奴は馬鹿。

238:デフォルトの名無しさん
10/02/08 10:45:58
それやってないけど、r.valueが最速だろ。

239:デフォルトの名無しさん
10/02/08 11:05:58
つーか、>>207で最後のコードが速いのは、事前バインドなんか全然関係なくて、
cells(i,1)でrangeオブジェクトを参照するより、for cell in rangeで参照した方が速いってだけじゃね？

240:デフォルトの名無しさん
10/02/08 11:14:44
古いＰＣだが

11sec: s = Range("A1").Value
05sec: s = Cells(1,1).Value
04sec: s = r.Value

241:151
10/02/08 12:22:11
横からすみません。分かりにくい点が多数あると思いますがお願いします。

　　　A　　　　B　　　　　C　　　　D　　　　　E　　　l　　　F
1　名前　　りんご　バナナ　みかん　　ブドウ　 l　　余り　
2　たけし　　１　　　　　０　　　　０　　　　　４　　　l　　　0
3　ともこ　　０　　　　　２　　　　０　　　　　４　　　l　　0.25
4　とおる　　１　　　　　２　　　　３　　　　　０　　　l　　0.73
5　さちこ　　１　　　　　２　　　　０　　　　　０　　　l　　　0
6　たける　　０　　　　　０　　　　０　　　　　４　　　l　　0.84
・
・
・
というような表を作っています。
フォームでりんごを選択し検索すると、りんごを食べれる【たけし・とおる・さちこ】
を検索（B2:E6から１を検索）し、与えます。
余りがあればさっき与えた人以外のところに持っていき、与えます。
それを繰り返して、条件付き組み合わせのような形で検索したいと思っています。
この場合ですと、リンゴを100個持っているとすると、　※（）内は残個数

・たけし（0）
・とおる（73）→たけし（0）
・とおる（73）→さちこ（0）
・さちこ（0）

の４パターンが検索されます。
各パターンで残個数が0になれば検索終了です。

このようなシステムは可能でしょうか？
また、可能ならヒントを頂けると嬉しいです。宜しくお願いします。

242:151
10/02/08 12:40:38
ちなみに、
りんご＝１
バナナ＝２…　という関連付けはすでにしています。

243:デフォルトの名無しさん
10/02/08 12:48:45
>>239
>>207で速さのことなんか何にも書いてないじゃん。
不細工かどうかだろ？

244:デフォルトの名無しさん
10/02/08 13:57:49
>>241
他人に上手く説明できないことは、自分でも理解していないことである

245:デフォルトの名無しさん
10/02/08 14:20:57
エスパーの出番だな

246:デフォルトの名無しさん
10/02/08 15:11:09
概してExcelに検索処理をさせることが間違いのもと

247:デフォルトの名無しさん
10/02/08 23:12:59
>>241
ようするにナップザック問題の亜種だろ
リンゴが99個で最初にとおるを選んだとき、残りの個数は割り切れない数になるけど、そういう時はどうすんの？

248:デフォルトの名無しさん
10/02/08 23:47:16
>>247
ここではリンゴとしましたが、実際はトン（ｔ）で計算します。
小数点以下も考えるので、99×0.73＝72.27（ｔ）が次の人へ…となります。

説明不足でした。申し訳ありません。
ナップザック問題というヒントを参考にさせてもらいます。

249:デフォルトの名無さん
10/02/09 00:19:12
下記test1で「あ」を図の真ん中に表示したい。
test2では文字をとりだせない。

Sub test1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50).Select
With Selection
.Characters.Text = "あ"
End With
Range("a1").Select
End Sub

Sub test2()
MsgBox ActiveSheet.Shapes(1).Characters.Text
End Sub

250:デフォルトの名無しさん
10/02/09 03:10:36
>>249
Sub test1()
　　With ActiveSheet.Rectangles.Add(10, 10, 50, 50)
　　　　.Text = "あ"
　　　　.HorizontalAlignment = xlHAlignCenter
　　　　.VerticalAlignment = xlVAlignCenter
　　End With
End Sub

Excel任せだと少しずれてしまうのは仕様。
ぴったり中央に文字を出したいときは、背景が透明のテキストボックスを
図形の上に重ねて、座標を自分で計算するしかない。

Sub test2()
　　MsgBox ActiveSheet.Shapes(1).TextFrame.Characters.Text
End Sub

あと、質問するときはもうちょっと文章を丁寧に書け。
「やりたい」「できない」だけじゃ質問になってない。
テンプレも使うこと。

251:デフォルトの名無しさん
10/02/09 11:55:15
>>250
ここにテンプレあったか？

252:デフォルトの名無しさん
10/02/09 12:20:13
>>251
>>2

253:デフォルトの名無さん
10/02/09 12:20:50
>>250
ありがとうございます。
気をつけます。

254:デフォルトの名無しさん
10/02/10 00:29:32
tes

255:デフォルトの名無しさん
10/02/10 00:36:42
ＶＢＡ初心者ですが、実行時バインドってなんですか？

また、エクセルで「現在アクティブなブックの一つ前に
アクティブだったブックのname」を取得するコードを教えてください。

256:255
10/02/10 01:20:39
Excel2003 windows xpです。
今まで勘違いして
activewindow.activatepreviousで取得していたんですが、
複数ブックが開いているときはだめな時がありました。

257:デフォルトの名無しさん
10/02/10 12:36:16
ひとつ前のブックをアクティブにしたときに名前取得すればいいんじゃないの？

258:デフォルトの名無さん
10/02/10 13:42:42
下記(1)で　mainをぬけてプログラムを中断したいのですが・・・

Sub main()
Call ChkShtName
MsgBox Now
End Sub

Sub ChkShtName()
If ActiveSheet.Name <> "xoxo" Then
MsgBox "シートは:" & ActiveSheet.Name
Exit Sub '(1) ここで本当はmainを抜けたい
End If
End Sub
end sub

259:デフォルトの名無しさん
10/02/10 14:12:17
>>258

発想がスパゲッティだなｗ
フラグ持ってけ。

260:デフォルトの名無しさん
10/02/10 15:01:51
For~Next文で、

For i1=…
　’ここにi1の処理（※）
　　For i2=…
　　　’ここにi2の処理（※）
　　　　For i3=…
　　　　　’ここにi3の処理
　　　　Next i3
　　Next i2
Next i1

と階層化されている場合、各段階で条件によって終了し、i1に戻って再度処理を続けるにはどうしたらいいですか？
（i2,i3である値が０になったときなど）
※のところに
If a = 0 Then
　Next i1
ではだめでした。
コード自体が長いのでこのような質問になり申し訳ありません。
よろしくお願いします。

261:デフォルトの名無しさん
10/02/10 15:41:51
goto
もしくは関数ごとつくる

262:デフォルトの名無しさん
10/02/10 16:16:38
i1に戻ったときの、i1,i2,i3の値が気になるが

Dim f as boolean
f = True

For i1=…
　’ここにi1の処理（※）
　　For i2=…
　　　If f Then
　　　’ここにi2の処理（※）
　　　　For i3=…
　　　　　’ここにi3の処理
　　　　　If （i2,i3である値が０になったとき） Then
　　　　　　f = False
　　　　　End If
　　　　Next i3
　　　End If
　　Next i2
Next i1

どこかでf = Trueをいれないといけないけどね

263:デフォルトの名無しさん
10/02/10 16:49:44
>>261
>>262
ありがとうございます。ちなみに>>241で質問した者です。

'果物番号
　fruit = Worksheets("sheet1").Range("E10")
　aRow = 1
　aCount = 0
'=================================================
For i1 = 2 To 6 '検索する行を指定
'果物番号の検索
With Worksheets("sheet1")
Set found1 = Worksheets("sheet1").Range(.Cells(i1, 2), .Cells(i1, 5)).Find(fruit, , LookAt:=xlWhole)
End With

If found1 Is Nothing Then
Else
'最初の人の余り（率）を取得して書き込み
s1 = Worksheets("sheet1").Cells(found1.Row, "A")　　’s1は最初に食べる人
out_rate1 = Worksheets("sheet1").Cells(found1.Row, "G")
aRow = aRow + 1
Worksheets("sheet2").Cells(aRow, 1) = s1
'排出物
out1 = Worksheets("sheet1").Cells(i1, 8)
'=================================================
For i2 = 2 To 6　（以降続く）

というプログラムで、i1ではout_rate1=0となれば最初に戻って次のパターンを検索、
i2ではout_rate2=0となれば最初に…
という流れを目指して書いたものです。
分かりにく過ぎて申し訳ないです。エスパーさんいらっしゃいましたら宜しくお願いしますw

264:デフォルトの名無しさん
10/02/11 00:47:06
>>258
元のプログラム構造を尊重した一例。
本当はMsgBoxはどちらか一カ所にすべき。

Sub main()
　　If ChkShtName Then
　　　　MsgBox Now
　　End If
End Sub

Function ChkShtName() As Boolean
　　If ActiveSheet.Name <> "xoxo" Then
　　　　MsgBox "シートは:" & ActiveSheet.Name
　　　　ChkShtName = False '(1) ここで本当はmainを抜けたい
　　Else
　　　　ChkShtName = True
　　End If
End Function

265:255
10/02/11 01:36:07
>>257

例えば、現在アクティブなbook2（マクロを登録してあるファイル）の
中のマクロで、ひとつ前にアクティブであった
book1（いろいろなファイル）に対して操作を行う時に、
nameが固定されていないbook1をアクティブにする方法です。

それが分からないのでnameも取得できませんでしたが、一応自己解決しました。
丸一日かかってやっと思いついたのが、
「現在アクティブなブックのウインドウを最小化する
とひとつ前のブックが自動的にアクティブになる」
というエクセルの動作を利用してみました。

266:255
10/02/11 01:49:31
もうひとつ質問なのですが、
メニューバーへボタンを作って
そのボタンからマクロを実行するアドインを
作って実装させているんですが、
計１０台くらいの仲間に実装したのに、
何日かしたら数台のＰＣでボタンが消えていました。

ツール　→　アドインで調べてもアドインファイルにチェックは
ついたままになっているんです。

ちなみにチェックを外してＯＫボタンを押すとエラーになりました。
アドインのメニューボタンだけが消えてしまった状態なんですが

ボタンをdeleteするプログラムを含むプログラムを
実行していないとしたら、
ほかにどんな原因が考えられるのでしょうか？

267:デフォルトの名無しさん
10/02/11 03:05:32
>>265
それはbook3もあって一つ前にアクティブだったかわからないという事か？
↓コピペだけど
Sub マクロブックでない方のファイル名を取得する()
Dim オブジェクト As Workbook
For Each オブジェクト In Workbooks
If オブジェクト.Name <> ThisWorkbook.Name Then
MsgBox オブジェクト.Name
End If
Next
End Sub
もし２つしかbook開いていないなら上記で
2つ以上でもアクティブなBOOK名を絶えず取得して置けばいいと思ったけど
マクロ書いたbookを最後に開いたら駄目だね

次ページ