nekotaruのプロフィール

E列の5行目から2000行までの間で 鉄、銅、銀、空白以外の文字が入っていたら 『鉱1_Click』という別のマクロを行うというマクロなのですが、 『銀』に限ってはE列5行目～2000行の間に1つだけあっても 『鉱1_Click』を走らせるようにしたいのですが、 どのように改造すればできると思いますか？ E列5行目～2000行の間に『銀』に限っては２つ以上でないと作動しないという風にしたいのです。 E列5行目～2000行の間に鉄、銅、空白、銀(1つ)の状態では発動しないようにしたいです。 当たり前ですが今現在ですと、銀がなかったり１つでも作動してしまいます。 Private Sub 鉱_Click() Dim ColumnA Dim flg As Boolean flg = False ColumnA = Columns("E:E") For i = 5 To 2000 If ColumnA(i, 1) = "鉄" Or ColumnA(i, 1) = "銅" Or ColumnA(i, 1) = "銀" Or ColumnA(i, 1) = "" Then Else flg = True Exit For End If Next If flg Then 鉱1_Click Else End If End Sub

ＶＢＡ初心者で書籍などで基本的な繰り返し処理のサンプル文を読んだのですが、 自分がやりたいことをどう繰り返し文で実現すればいいのかよくわかっていません。 やりたいことは以下なのですが、繰り返し文についてご教授ください。 Excel　ファイルイメージ Ａ列　Ｂ列　Ｃ列 1 　　 11 　　 A 1 　　 12 　　 B 1 　　 13 　　 A 2 　　 21 　　 C 2 　　 22 　　 B 2 　　 23 　　 B ・・・ →このファイルイメージを参考にご説明すると、Ａ列で同じ値分 ループを回し、Ｃ列の値によって一つの値に絞り込むことを実行 したいです。 例えば、 A列が１で、C列にA，B，Aが存在した場合、Ａが二つあるので B列の値が最大の行（例：13）のD列にＡという値を設定する。

教えてください。 ACCESSを使っているのですが、 エクスポート先をネットワークに接続してあるクライアント”user32”の中にある”\技術２課\管理\システム”内の「発注数.xls」　にエクスポートしたいと考えてます。 現在は私のクライアント内のCドライブで運用しているので DoCmd.TransferText acExportDelim, "Q発注 エクスポート定義", _ "発注数", "c:\在庫\発注数.CSV" と、クリック時のイベント プロシージャに書いてます。 ネットワークに変更したい事と、CSVでなくxls　にしたい事の二点です。 どうかお願いします。

お世話になります。 通常、アプリ側ではApplication.DisplayAlerts = Falseにして、 ブックの終了などを制御しているのですが、 Excelのクローズボタンを押して終了するときは、この DisplayAlertsが有効にならないらしく、必ず上書き確認の ダイアログが表示されてしまいます。 これを… 1.上書き保存ダイアログを表示させない(上書き自体させない) 2.Excel本体のクローズボタンを無効にする 3.Excel本体のクローズボタンを非表示にする …などのどれかの方法を教えてください。 尚、現在はブックを閉じる直前で、下記のようなコードで 試みていますが、うまくいきません。 Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False End Sub 以上、宜しくお願い致します。

1MB以上のCSVファイル数値測定データ（65000個以上）があります。ある程度狭い範囲の値の数値が不規則に連続していてグラフにすると横に波のようにいくつもの山と谷が連続するかんじです。この数値郡に下限値を自由に変えられるようして設定し下限ラインから上に出た山毎の最大値を拾い出す。というものをVBAで作りたいのですが、どうすればうまく作れるでしょうか？ また、データが大きいとエクセルではなくVB単体で作るべきなのでしょうか？