1001コメント371KB

Excel VBA 質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2010/01/06(水) 12:34:58

0119デフォルトの名無しさん

2010/01/25(月) 23:01:34

>>117
回答感謝します。
それはフォーム上全て操作できるものなのでしょうか？
なんとか調べて試してみます。ありがとうございました。

0120デフォルトの名無しさん

2010/01/25(月) 23:47:42

>>118
ワークシート関数　MAX

0121デフォルトの名無しさん

2010/01/26(火) 00:00:12

>>110
オートフィルターでソートしてるときだけ解除

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

0122デフォルトの名無しさん

2010/01/27(水) 10:19:27

ActiveCellの上と下の空白セルを選択したいです。

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

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

0123デフォルトの名無しさん

2010/01/27(水) 12:45:02

With Selection
.NumgerFormat = "@"
.Replace What:="hogehoge", Replacement:="01"
End With

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

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

よろしくお願いします！

0124デフォルトの名無しさん

2010/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

0125デフォルトの名無しさん

2010/01/27(水) 21:33:26

>>122
Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select

0126デフォルトの名無しさん

2010/01/28(木) 12:31:46

どなたか>>123わかる方、よろしくお願いします。何卒…

0127デフォルトの名無しさん

2010/01/28(木) 13:26:32

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

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

0128デフォルトの名無しさん

2010/01/28(木) 13:47:17

>>127
試してみます！
もし詰まっちゃったらまた質問させてください
ありがとうございました！

0129デフォルトの名無しさん

2010/01/28(木) 16:18:28

>>123
これ、なんでできないんだろうな。ちゃんと文字列型にした後に値入れてんのに

0130デフォルトの名無しさん

2010/01/28(木) 17:35:15

手動でやるとこんなコードになる

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

0131デフォルトの名無しさん

2010/01/28(木) 17:40:43

すまそ、Replaceの問題なのか

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

0132デフォルトの名無しさん

2010/01/29(金) 03:26:32

Replaceしてから書式設定したらどうなるんだ？

0133デフォルトの名無しさん

2010/01/29(金) 10:52:38

>>132
そりゃ"1"になるに決まってるよ

0134デフォルトの名無しさん

2010/01/29(金) 14:40:22

結局文字形式で数字を
セルに入れたいときは
FOR～で回すしか手がないんか

0135sage

2010/01/30(土) 00:50:08

2003,xpです

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

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

0136デフォルトの名無しさん

2010/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)

0137デフォルトの名無しさん

2010/01/30(土) 15:02:59

社内ＬＡＮを組んでいます
ブックＡのマクロでブックＢを編集し、保存するマクロがあります
他人がブックＢを編集していると読み取り専用でブックＢを開いてしまい保存する段階でエラーとなります
他人がブックＢを編集中であるかどうか判定するにはどうすればよいでしょうか？

0138デフォルトの名無しさん

2010/01/30(土) 15:06:44

ttp://sanryu.net/acc/tips/tips261.htm

0139デフォルトの名無しさん

2010/01/30(土) 15:16:46

>>138
解決しました
ありがとうございました

0140デフォルトの名無しさん

2010/01/30(土) 17:53:56

16進数を扱うデータリストを作っています

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

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

0141デフォルトの名無しさん

2010/01/30(土) 18:00:45

>>140
セルの書式を文字列にしておく

0142デフォルトの名無しさん

2010/01/30(土) 18:05:17

>>141
扱う量と試行回数が今後も継続的に多くなるからその案は駄目です
指数を無効にさせることが目的なので

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

0143デフォルトの名無しさん

2010/01/30(土) 18:37:26

テキストで読み込み、カンマでスプリットする

0144デフォルトの名無しさん

2010/01/30(土) 18:41:41

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsCSV001.html
こんな現象が起きてると予想

0145デフォルトの名無しさん

2010/01/30(土) 19:46:14

csvを読み込んで、
セルの書式を文字列にしてセルに再書き込みでは？

0146kaimiyu

2010/01/31(日) 07:13:11

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

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

0147デフォルトの名無しさん

2010/01/31(日) 07:43:36

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

0148kaimiyu

2010/01/31(日) 08:13:37

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

0149デフォルトの名無しさん

2010/01/31(日) 10:24:10

可能だし
マクロの記録みて

0150デフォルトの名無しさん

2010/01/31(日) 14:56:13

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

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

0151デフォルトの名無しさん

2010/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

0152デフォルトの名無しさん

2010/01/31(日) 18:39:31

>>151
ActiveCell.Row　を　found.Row へ変更

0153デフォルトの名無しさん

2010/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)

0154デフォルトの名無しさん

2010/01/31(日) 19:01:32

>>152
>>153
お二人ともありがとうございます！
実行してみたところ、正常に動きました。
ちょっと感動しました。

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

0155デフォルトの名無しさん

2010/01/31(日) 19:22:10

>>154
今のままで、できるんじゃないかい？

0156デフォルトの名無しさん

2010/01/31(日) 20:06:09

>>155
他のシート（セルも）がアクティブになっていた場合なんですが、
なぜかtextboxに値が出てきませんでした。

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

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

0157デフォルトの名無しさん

2010/01/31(日) 20:16:26

>>156
With Sheets("全データ")
があるんだからそれを活用して

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

Cellsの前に　ドットをつける

0158デフォルトの名無しさん

2010/01/31(日) 20:36:15

>>157
さっき自分でやった方法と違い、フォームの後ろで
シートが切り替わらなくても検索できました！
感謝します。

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

0159デフォルトの名無しさん

2010/02/01(月) 03:47:36

エクセル2007.ＸＰ．
質問です。よろしくお願いします。詳しい方ぜひ教えてください。

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

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

ttp://kikky.net/pc/vba_autologin.html

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

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

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

0160デフォルトの名無しさん

2010/02/01(月) 06:10:06

ttp://www.ken3.org/cgi-bin/group/vba_ie.asp

0161デフォルトの名無しさん

2010/02/01(月) 10:34:29

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

0162デフォルトの名無しさん

2010/02/01(月) 10:36:09

間違った。
Me.会社名表示.Value = .Cells(founfl.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

0163デフォルトの名無しさん

2010/02/01(月) 18:34:00

>>162
offsetも一度検討してたんですが、その時もActiveCellで考えてました。
ありがとうございます。

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

0164デフォルトの名無しさん

2010/02/01(月) 22:50:34

ログインが必要なファイルサーバにファイルをコピーしたいのですが
ファイルサーバへの接続が上手くいきません。

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

0165デフォルトの名無しさん

2010/02/01(月) 23:00:24

ttp://www.moug.net/faq/viewtopic.php?t=46965&sid=35bd0a78b60e9ce710a0ff9baaf11ef4

0166デフォルトの名無しさん

2010/02/02(火) 19:34:59

>>163
欠陥プログラムなんて事は無いから真に受けない方が良いよ。

0167デフォルトの名無しさん

2010/02/02(火) 20:12:59

自分も　回り道であるかもしれないけれど
欠陥プログラムは言い過ぎだとおもう
さぞかし >>161 は、綺麗なコードを書いているのだろうね
プロ(笑)なプログラマの言う事は理解できん

0168デフォルトの名無しさん

2010/02/03(水) 01:10:19

>>167
別に俺はプロじゃねーし。
まぁプロが行番号なんか使ってたら俺ら素人に笑われるわな。

0169デフォルトの名無さん

2010/02/03(水) 15:39:54

html 用の色指定　#FF00FF　とか　#EE82EE　を

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

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

0170デフォルトの名無しさん

2010/02/03(水) 15:44:56

えっ

0171デフォルトの名無しさん

2010/02/03(水) 18:35:01

何をしたいのかわからないけど
16進数を10進数にする

0172デフォルトの名無しさん

2010/02/03(水) 20:57:32

CLng("&H" & Value)

0173デフォルトの名無さん

2010/02/03(水) 22:52:54

>172
謝謝、男毛先

0174デフォルトの名無しさん

2010/02/04(木) 08:15:25

>>168
データベースの2次元配列構造を使用する時には、
range.row や range.column を多用するぜ。
と言うか、可読性や速度を考えても、遠回りじゃなくて直線的なロジックだよ。
列は固定で行は変動する場合とかね。

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

0175デフォルトの名無しさん

2010/02/04(木) 13:05:09

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

0176デフォルトの名無しさん

2010/02/04(木) 15:32:43

>>175
目くそ様乙であります！！

0177デフォルトの名無しさん

2010/02/04(木) 18:08:46

>>175
引用間違ってるよ。

0178デフォルトの名無しさん

2010/02/04(木) 22:24:30

使い捨てのマクロでそんなことにこだわる必要はないが
他人にも使わせるツールなら意識して欲しいかな

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

0179151

2010/02/04(木) 22:40:26

>>178
たしかに今考えればいならいような気がします…

0180151

2010/02/04(木) 22:48:16

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

0181デフォルトの名無しさん

2010/02/04(木) 22:52:53

>>178
他人に使わせるだけのマクロなら汚くてもいいんじゃない？
分る人にソース見られたとき困るだけ。

0182デフォルトの名無しさん

2010/02/05(金) 05:12:07

個人的には lookup系は使わずVBA
それ以外はセル操作で出来るのなら極力
VBAを使わないというのが好き

0183デフォルトの名無しさん

2010/02/05(金) 06:44:05

>>151にVLOOKUPはないね。
使い捨てブックならかまわないけど。

0184デフォルトの名無さん

2010/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

0185デフォルトの名無しさん

2010/02/05(金) 13:21:40

>>184
文字列を渡してどうする

0186デフォルトの名無しさん

2010/02/05(金) 21:18:11

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

0187デフォルトの名無しさん

2010/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

0188デフォルトの名無さん

2010/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

0189デフォルトの名無しさん

2010/02/06(土) 01:32:22

selectしなくてもいいじゃん

0190デフォルトの名無しさん

2010/02/06(土) 01:43:19

>>186
ひどい勘違いだな
内部でループなんかするわけないじゃん
とにかくCellsを多用するコードは不細工だ
事前バインドの方が楽で簡潔

0191デフォルトの名無しさん

2010/02/06(土) 07:54:23

DBをExcelに展開して作業するんだけど、offsetだけじゃ無理。
cells(foundcell.row,1).value
とか普通に使ってtる。

0192デフォルトの名無しさん

2010/02/06(土) 08:27:51

参照設定

0193デフォルトの名無しさん

2010/02/06(土) 08:34:39

なんだか、アーリーバインディングを勘違いしてる奴が居るな。
難しい言葉を使おうとしなくていいんだよ。

0194デフォルトの名無しさん

2010/02/06(土) 09:56:19

Range.CopyFromRecordset

0195デフォルトの名無しさん

2010/02/06(土) 10:15:47

>>193
勘違いしてねーよ。
アーリーバインディングの方がコーディング楽だろ？
お前Cells使ってるのか？

0196デフォルトの名無しさん

2010/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 = (参照式)

0197196

2010/02/06(土) 17:04:34

すみません。途中で書き込んでしまいました；

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

0198デフォルトの名無しさん

2010/02/06(土) 17:06:27

今、画像の表示（サムネイル一覧）や変換（BMP→tiffなど）するソフトを
VBAで作ることを考えています。

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

OS：WindowsXp Excel：2000

0199デフォルトの名無しさん

2010/02/06(土) 17:25:22

>>196

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

0200デフォルトの名無しさん

2010/02/06(土) 17:59:03

>>199
2007から行数変わったじゃん

0201デフォルトの名無しさん

2010/02/06(土) 20:24:51

行数、列数が拡張されたのは2007の時だけじゃないし
Rows.Countでそのシステムの最大行数が求まる

0202デフォルトの名無しさん

2010/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まで半角数字なのに"半角数字で…"のエラーが出ます。
半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？

0203デフォルトの名無しさん

2010/02/07(日) 03:10:19

ttp://homepage1.nifty.com/rucio/main/technique/InputChk2.htm

0204デフォルトの名無しさん

2010/02/07(日) 05:20:15

>>203
ありがとうございます！参考にさせてもらいます！

0205デフォルトの名無しさん

2010/02/07(日) 06:26:06

>>195
やっぱり勘違いしてるね。

0206デフォルトの名無しさん

2010/02/07(日) 07:03:38

しつこいやっちゃなぁ。
実行時バインドのコードばっか書いてる三流プロか？

0207デフォルトの名無しさん

2010/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

0208デフォルトの名無しさん

2010/02/07(日) 08:10:50

言っとくけどCellsは事前バインドだが、Cellsの後ろに隠れてるItempプロパティ(実際は_Dedaultプロパティ)が実行時バインドね。

0209デフォルトの名無しさん

2010/02/07(日) 08:14:34

Selectionを使うのは実行時バインド？

0210デフォルトの名無しさん

2010/02/07(日) 08:17:38

(cは事前バインド)は(cもOffsetも事前バインド）だった。

0211デフォルトの名無しさん

2010/02/07(日) 08:23:01

>>209
Selectionをそのまま使えば実行時バインドだよ。
ただしSellectionを任意の変数(たとえばセル範囲ならRange型の変数)に格納してその変数を使えば事前バインド。

0212デフォルトの名無しさん

2010/02/07(日) 09:27:36

不細工云々はどうでも良いんだけど、
column固定でrowはfoundcellの場合、どうすりゃいいんだよ。

0213デフォルトの名無しさん

2010/02/07(日) 10:58:03

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

0214デフォルトの名無しさん

2010/02/07(日) 11:09:02

>>151をよく見ると心配な点がいっぱいあるね。
技術検索番号ってまさか単純な数字じゃないだろうな。
LookAt:=xlWholeを書いてないと1で10とかも引っ掛かるかるしなぁ。
Withも意味なしてないし。

0215151

2010/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

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

0216196

2010/02/07(日) 14:54:05

>>199
ありがとうございます。
End()を使ったことがなかったので少し手間取りましたが、希望通りの動作をしてくれました。

0217デフォルトの名無しさん

2010/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の部分は同じ変数に代入するのがお行儀が悪いって人も稀にいるけどな。
気になるなら別の変数にすればいい。

0218デフォルトの名無しさん

2010/02/07(日) 18:54:31

おっとfound.Row(6).Valueは間違いね。

■ このスレッドは過去ログ倉庫に格納されています