Excel VBA 質問スレ Part50 [無断転載禁止]©2ch.net

2017/08/27(日) 12:40:17.57

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part49©2ch.net
http://mevius.2ch.net/test/read.cgi/tech/1498410914/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2017/08/27(日) 13:54:51.09

いちおつしないとおちちゃうよ

2017/08/27(日) 15:00:10.00

http://soleil-lielos.net/image/o05.jpg

2017/08/27(日) 16:42:30.51

初心者です。お時間がありましたら、アドバイス願います。
「自分のペースでゆったり学ぶ　EXCEL VBA」という本を使って
勉強しています。シートを任意の場所にコピーするという項目で、
エラーが出てしまいます。

Sub 納品書シート作成()
　ThisWorkbook.Worksheets("納品書").Copy _
After := ThisWorkbook.Worksheets(3)
End Sub

これを実行すると、「修正候補：式」と出て、「After :=」の部分が赤色になります。
何が問題なのでしょうか。よろしければ教えてください。

EXCEL2010を使用しております。

2017/08/27(日) 17:08:53.71

>>4
こっちも2010
そのプロシージャまんまコピーして（勿論「納品書」シートも作って）実行したけど正常終了
念のためワークシート数を2枚にして実行すればエラーになるけどそれはインデックスが有効な範囲にないというエラーで
そちらのエラーにはならない。

一応確認しておくけど、VBEditorの画面で上のデバッグ(D)からコンパイルをしてエラーは無い？

2017/08/27(日) 17:09:02.52

>>4
時間がないやつは最初からアドバイスなんて出来ない。読むのめんどくさいだけだからそういう社交辞令は書かないほうが良い

で、2010だけどエラーが出なかった。式はおかしくないはず
Worksheets(3)　は、3つめのシートを表す。シートが3つ以下だとエラーが立つが、その場合は「インデックス~」のエラーになる
もし可能ならブックごとアップロードしてほしい

2017/08/27(日) 17:42:10.42

>>4
改行のアンダーバーの前にスペース入れ忘れてるとかそんなんは？

2017/08/27(日) 18:33:58.27

>5,6,7
ありがとうございます。
デバックというのを試してみましたが、同じような結果になります。

ファイルをアップロードしてみました。Dkeyは1111です。
http://www.dotup.org/uploda/www.dotup.org1351357.xlsx.html

2017/08/27(日) 18:52:31.15

>>4>>8
よく分からない。普通にうまくいく（シート「納品書」がなかったからテキトーに作ったけど）
http://i.imgur.com/NeVGWfS.png

2017/08/27(日) 19:12:47.61

>>8
マクロを含むファイルは xlsm で保存しないとダメじゃね？

2017/08/27(日) 19:19:16.69

うむ。
xlsxで保存するとマクロが消えるよ。

2017/08/27(日) 20:15:32.32

>>4
出版社のページでダウンロードしてきたらどうでしょうか？
正誤表は無いみたいですね。

2017/08/27(日) 22:32:38.03

>>8
まず最初にエクスプローラーのツール→フォルダーオプションの
表示タブで”登録されている拡張子は表示しない”のチェック外せ。
んで、拡張子xlsxとxlsmの違いについてVBAのその入門書の最初から読んで
勉強し直せ

2017/08/27(日) 23:11:29.74

vbaってpcのスペック関係あるん？
オフィス2010の32ビットでメモリー4gで全てのシートの枠線を一括して色変えろってのをやってるけど
すぐ動作しなくなるんだよね、俺のマクロが可笑しく書いてるだけかな

2017/08/27(日) 23:37:22.62

>>14
ある
Excelは割りと最適化してくれるけど、最適化しないとこは猛烈に重い

あと、ヘタにvbaコード書くよりマクロの記録をまるまるコピペしたほうがいい場合も多い

2017/08/27(日) 23:57:27.56

たしかに枠線の色はパンチ効いてそうだな、メモリ的に

2017/08/28(月) 00:07:43.72

枠線じゃなくて罫線ね
色に関する機能はとにかく重い

2017/08/28(月) 00:21:31.22

どのくらいの大きさのものか、どのくらいの処理から重いと言うのかにもよるけど、
>>14と変わらない環境で5000行50列を縦横別々の判定で罫線引いてセルの背景色を行毎に変えて重要項目に個別に色付けてって処理でも五秒もあれば完了するし、
実務に影響が出るほど遅いって事なら、たぶんUnionでセルをまとめずに一つ一つに処理が発生するような事してるのでは？

処理の順番や組み合わせ次第で装飾的な処理はかなり軽く出来るはず。
GPU並の応答速度をセルに要求するなら知らんけど。

2017/08/28(月) 06:09:18.70

銀行にはデータセンターがあって、機械で文字識別に失敗したものが、処理される

3人の職員が、画像を見ながら、金額を打ち込んで、3人とも同じなら合格

殴り書きの人がいるから。
これは、郵便局でも同じ

スレ違いだけど

2017/08/28(月) 17:53:40.80

その銀行のシステムをＥｘｃｅｌで作っているのでなければどうでもいいな

2017/09/01(金) 18:17:33.81

点数　人数　名前
10　0
9
8　3　foo bar moge
7　5　piyo poo
…

こういう感じのn行×3列の表があります。
人数は、その点数を取った人数です。

2017/09/01(金) 18:23:17.66

すみません、途中で投稿してしまいました。

点数　人数　名前
10　0
9　1　hoge
8　4　foo bar moge
7　5　piyo poo…
6　9　…
…

こういう感じのn行×3列の表があります。
人数は、1列目の点数を取った人の数です。

人数を上から足していって、初めて10を超えた行より上の行の背景色を変える、ということは、
「条件付き書式」で可能でしょうか？

2017/09/01(金) 18:36:17.67

>>22
ここVBAスレだからエクセルのスレで聞いた方がいいのでは。

VBAやってる人間って基本的にエクセルの機能知らなくて、
自分で実装した後にそういう機能がある事知って悶絶するのが普通だし。

2017/09/01(金) 18:46:07.83

>>22
人数の累積が10以上かどうかを示す列を追加したら
こんな感じで出来るんでない？

=OR(AND($D4=0, $D5=1), $D5=0)

D列が累積10以上かどうかの列
0なら10未満、1なら10以上
上の例は5行目に設定した条件付き書式

2017/09/02(土) 10:23:46.50

>>22
俺ならD列には上からの合計人数を出す式を追加して
D列の値が10未満かどうかで条件付き式書式を設定する

2017/09/02(土) 10:28:20.75

Sub SetGUID()
'On Error GoTo Err_Check:
Dim ref As Reference
End Sub

でコンパイルエラーが出ました。Referenceをで意義してなとのことです。
Referenceをインポートしなければいけないのでしょうか？

2017/09/02(土) 11:21:10.40

reference型は存在しない

2017/09/02(土) 11:56:02.84

ありがとうございます。

2017/09/02(土) 14:35:26.83

>>22
B列に条件付き書式で
=SUM($B$1:$B1)<10
いけるんじゃね。

22 (ﾜｯﾁｮｲ cfd3-X0kF) · 2017/09/02(土) 18:32:32.23

皆様ありがとうございます。
累積人数の作業列を用意するやり方でできました。

28 (ｱｳｱｳｶｰ Sa07-darD) · 2017/09/02(土) 21:49:19.26

>>29
何で列を追加する必要がある？
一番上のセルを絶対座標にして下のセルの行番号を相対にすれば各行迄の累積人数取れるじゃん。

2017/09/02(土) 22:25:34.44

>>31
それってスケールしなくない？

2017/09/02(土) 22:28:15.89

苦いもんな

2017/09/03(日) 03:52:33.65

それはケール

2017/09/06(水) 01:23:13.87

ExcelではなくPowerPointのVBAになるのですが、該当するスレがないので質問させてください。

PowerPointのpptxにmsoEmbeddedOLEObjectの形で埋め込まれているエクセルファイル(xls,xlsx両方あり)を、
マクロを使って連続的に(複数埋められている)取り出し、別ファイルに保存したいと考えています。
(大本のファイルの破損のため、埋め込みファイルから復元する必要がある)
zipに拡張子変更して解凍、とすれば取れるのは知っているのですが、ファイル名の対応が取れなくなるため、
マクロ上で番号を付けて保存するのが目的です。

大まかにこのような形になるはず、と、抜き出し直前までの処理を作ったのですが、実際の保存処理について、
いろいろ試したのですがうまくいきませんでした。
PowerPoint上でのVBAマクロはニッチすぎてググっても情報に出くわさず、ましてやデータの抜き出しのような
ものはさらに見当たらない状態で、詰んでしまいました。
どのようにすれば保存できるか、ご教授願えますでしょうか？

For Each oSld In ActivePresentation.Slides
　　For Each oShp In oSld.Shapes
　　　　Select Case oShp.Type
　　　　　　Case msoEmbeddedOLEObject
　　　　　　　　If (Left(oShp.OLEFormat.ProgID, 5) = "Excel") Then
　　　　　　　　'ここに処理を入れるはず
End If
　　　　End Select
　　Next
Next

2017/09/06(水) 01:53:39.78

>>35
SaveAsやSaveCopyAsで動かないってことなのかな？
PowerPoint/Excelのバージョンやうまく行かなかった方法とエラー内容書かないとわからないね
正攻法でダメなら新しいExcelブックを作ってコンテンツコピーして保存するとか

2017/09/06(水) 11:39:49.13

エクセルVBAの課題ですがコードがわかりません。教えてください
下記がコードになります。
参考書の該当構文はInStrRev関数を使う事になるのですが半角スペースを指定する方法がわかりません
Dim temp As String
Dim pos As Long
Dim vName As String
Dim i As Long

For i = 2 To 6
temp = Cells(i, 2).Value
'半角スペースの位置をInStrRev関数を使用して取得し、変数posに代入する

'「氏名」から「名」のみを取得して変数vNameに代入する

Debug.Print vName
Next

考えたコードは下記でシングルクォテーションの間にスペースを入れればスペースを検索できるかと思ったのですが
エラーになりました。
pos = InStrReV(VPath," ")
ちなみに、B列に氏名、C列にフリガナが入力されています。

28 (ｱｳｱｳｶｰ Sa07-darD) · 2017/09/06(水) 14:58:34.88

>>35
取りあえず出来たけど今PC閉じたんで書き込めない。
PC開ける環境までもう少し待ってくれ。

>>37
良さそうなんだけど、1つ教えてくれ。
VPathって何だ?
コードの中に見あたら無いんだが。
tempとVPathの関係はどうなってる?

と書けばミスに気付くんじゃないかな。

2017/09/06(水) 15:14:58.67

ついでに言うと、そもそもvって何よw
stringなのに。

28 (ｱｳｱｳｶｰ Sa07-darD) · 2017/09/06(水) 18:33:42.98

>>35
PC開ける場所が無いから駅のホームで開けたったわ。

さて、PowerPointでやってみようとしたらマクロの記録って無いんだな。
どうせ、オブジェクトの埋め込みって他でも似たようなもんだろと思ってWordで埋め込みを記録してみた。
で、出来たコード見てPowerPointでも同じようにいけそうと見当を付けてからWord上で今度は埋め込まれたExcelオブジェクトを右クリックメニューから開くのを記録しようと思ったらメニュー表示されなくて記録出来なかった。
で、記録は出来なかったけどWordでも同じようにいけそうと分かったのでWordで埋め込みオブジェクトについてググったら下記が見つかった。

https://support.microsoft.com/ja-jp/help/408493

これを参考に下記の真ん中の文でいける思って実行してみたらブックは出来てたけど開くとシートが表示されない。
表示リボンの再表示ボタン押したら表示されたんで、保存前に表示しとけば良いのかと思って再表示処理のコードをPowerPointにあわせて修正したのが最初の文。
それからシートが表示されてないブックをVBEのプロジェクトエクスプローラで見ると他のブックも表示されてる。
PowerPointに張り付けたExcelオブジェクトは複数で、それらが開いたまま保存すると参照も保存されるようなので保存後に閉じる最後の文の処理を追加して他への影響を回避した。
(開いて保存を繰り返すと後の保存では前に開いて保存後に開いたままになってるのが影響する)

'hogeの後、連番のファイル名で保存
oShp.OLEFormat.Object.Windows(1).Visible = True
oShp.OLEFormat.Object.SaveAs "C:\Users\hoge\Desktop\hoge" & CStr(i) & ".xlsx"
oShp.OLEFormat.Object.Windows(1).Close
i = i + 1

37 (ﾜｯﾁｮｲ dbe3-otRg) · 2017/09/07(木) 09:48:18.13

38できました。ありがとうございます。
サンプルコードコピペで何となく打ってたので変数が違ってました。
それ以外の変数は課題の変数名なので、なぜといわれても。
VBAもなかなか難しい

2017/09/07(木) 16:44:12.32

どなたかご存知でしたらご教示ください
ADODBのレコードセットから特定のフィールドを削除するにはどうしたら良いのでしょうか

Set rs = cn.Execute(select * from foo)

rs.Close

rs.Fields.Delete(n)

rs.Open

レコードセットが開いていると Delete メソッドがエラーになるので、いったん Close してから Delete するのですが、再度 Open したときに削除したはずのフィールドが復活してしまいます

2017/09/07(木) 20:34:42.24

起動済みのインターネットエクスプローラを操作する上手い方法ありますか？

2017/09/07(木) 20:45:36.76

キーボードマクロ

2017/09/07(木) 21:03:02.57

そら、Recordset 消してるだけだしな　毎回Recordset 消してどうしたいねん　っていう
Save せんでええのんか　っていう

2017/09/07(木) 22:52:40.38

select * なんてせずに使いたい行だけselect するってのはダメなんかい

2017/09/07(木) 22:53:51.32

あっ、行じゃなくフィールドね

2017/09/07(木) 22:58:55.63

>>42
選べよw

2017/09/07(木) 23:53:31.42

>>45
Save メソッドですか？

Recordset をファイルまたは Stream オブジェクトに保存します。

とMSDNに書いてあるから、やりたいこととは少し違う気がします
とはいえ、削除をコミットしたいという感覚は間違いありません

>>46
>>42のSQLはあくまでサンプルですが、SQL文そのものはインプットなので、編集はできない状態だと考えていただきたいです
その上で結果のレコードセットを編集して出力することを考えています

2017/09/08(金) 08:13:46.68

削除クエリー走らせるとか

2017/09/08(金) 09:31:09.93

>>43
マウスを動かしてクリック

2017/09/08(金) 09:37:36.00

>>42
こういうことではないのか？
http://www.accessclub.jp/vbakaisetu/37.html

2017/09/08(金) 11:23:59.37

>>52
レコードセットから列を削除したいのです
やりたいことはこんな感じです

'1.クエリの実行
Set rs = cn.Execute("select A,B,C from foo")

'2.レコードセットから列Bを削除する
rs.Fields.Delete("B")

'3.残った列A,CをA1セル起点に貼り付ける
Range("A1").CopyFromRecordset rs

このとき、Fields.Delete メソッドはレコードセットが開いているとエラーになってしまいます
なので、>>42のように前後にClose、Openで挟んだのですが、Open実行時に削除したはずの列が復活してしまいます

2017/09/08(金) 12:48:46.68

>>53
> レコードセットから列を削除したいのです
取得しなきゃいいだけだろ...

'1.クエリの実行
> Set rs = cn.Execute("select A,C from foo")

28 (ｱｳｱｳｶｰ Sa43-G+Vk) · 2017/09/08(金) 12:57:54.99

>>54
>>49でSQLは編集出来ないということらしい。

なんか、物凄く特殊なことしてるね。
レコード数から2次元配列作って1件ずつ入れてくといった泥臭い方法ぐらいしか無いんかね。

2017/09/08(金) 15:26:46.89

>>49
そのインプットとやら
に工夫施す

2017/09/08(金) 18:09:07.35

>>53
3貼り付けがAとCだけにすれば2は要らないのでは？

2017/09/08(金) 18:32:11.80

初めからＢをselectしなければ良いだけだけど、それが無理なら
張りつけてからＢ列消せば良いんじゃね

2017/09/08(金) 20:18:25.34

select A,C,B　のほうがよさげ

2017/09/08(金) 21:03:05.17

rsからrs2を作る

2017/09/08(金) 21:20:35.90

>>55
> SQLは編集出来ないということらしい。
ああ、なるほど見落としてたわ
なら俺も泥臭い方法かSQLをパースして特定の列を抜いたSQLを組み立てるとかのトリッキーな方法しか思い付かんわ

42 (ｻｻｸｯﾃﾛﾚ Sp3b-r1nS) · 2017/09/08(金) 23:59:54.71

みなさんレスありがとうございます

>>55
やっぱりそうするしかないのでしょうかね
いったん配列に落とすとセルに貼り付けた時データ型やレコード数なども気にしなきゃならなくなるので、できればレコードセットのままなんとかしたいのですが…

>>57
そうなんだろうけど、CopyFromRecordsetだと全フィールド張り付いてしまいます
ループで1セルずつ貼り付けて行くと、>>55の言うような「泥臭い方法」と変わらなくなってしまいます

>>58
なるほど、レコードセットでどうにかできなければそれが一番いい方法かもしれません

>>60
それも考えましたが、rs2に複製の際にエラーが出てしまいました
今は手元に環境がないので、エラーの内容についてはまたの機会にします

>>61
SQLは select * になるかもしれないし、予想がつきません

2017/09/09(土) 01:05:27.10

どういうＳＱＬが来るかも分からないのに特定の列を消す必要があるという事だけは分かるのか

2017/09/09(土) 01:14:41.31

文章の中から下みたいな文字列（URL）だけを削除するにはどうしたら良いんだろか。

http://2ちゃん.com/test/20170123456789

数字の部分がうまく処理できない。

2017/09/09(土) 02:28:27.21

>>64
正規表現を使うといいかもです

スマホで手打ちしてるんで細かい部分で間違いがあるかもしれませんが、イメージはこんな感じです
(特にスラッシュのエスケープとか)

Dim strOrg as Sting
Dim strNew as Sting

strOrg = ※文章を代入

With CreateObject("VBScript.RegExp")
.Pattern = "http:////.*$";
.IgnoreCase = True
.Global = True
strNew = .Relpace(strOrg, "")
End With

2017/09/09(土) 09:08:52.36

コンパイルエラー：subまたはfunctionが定義されていませんと出ます。
Callされる関数の引数に問題があるのかと思うのですが、原因が分かりません。

Call ShowInIE(ie, "http://www.vba-ie.net/";, , 0, 0, 700, 200)
で
Sub ShowInIE(ie As InternetExplorer,
url As String,
Optional viewFlg = True,
top As Integer,
left As Integer,
width As Integer,
height As Integer)
を設定して渡すで良いのでしょうか？

ttps://pastebin.com/aJLAUnfc

2017/09/09(土) 09:16:22.62

「vba subまたはfunctionが定義されていません」で検索！

2017/09/09(土) 10:42:29.03

マクロにパスワードかけてたのだが、どうも破られてるらしき兆候があって
ぐぐった結果見つけたこのページの「マクロのパスワードを解除するマクロ」
を試したらほんまに解除できてびっくり
http://neos21.hatenablog.com/entry/2016/09/30/081709

これで破られない対策って誰かご存じないですかね？
自分で根ほり葉ほり動作調べてたら一日かかりそう

2017/09/09(土) 10:44:48.94

てか破り方誰でもわかるセキュリティなんて何もしてねえのと同じだ
目からウ●コが落ちた

2017/09/09(土) 11:26:51.38

標準モジュール

2017/09/09(土) 12:21:56.16

>>66
・1行の文を途中で改行する際の末尾アンダーバー（ _ ）を付け忘れている。
・Optional を付けたらそれ以降の引数もすべてOptional じゃないといけない

2017/09/09(土) 13:21:02.45

>>71
ありがとうございます。出来ました。

2017/09/09(土) 13:32:44.29

>>68
ない
MSですら公式に「間違って変更しないためのパスワードであり、セキュリティ云々ではない」と言ってる
ソースはどっか行った

2017/09/09(土) 13:49:29.47

「ない」ってあんたそんなズバリと（^ ^;

APIのエキスパートなら自分でどうとでもするだろうけど
人に聞いて知ってるような方法はないってことですね
しょーがないか

2017/09/09(土) 14:33:51.65

>>68
パスワードの文字数を多くするとか
記号を使うとか文字の種類を多くする

2017/09/09(土) 14:42:58.59

そういう問題じゃないんで・・
パスワードを解析するんじゃなく、記録してるとこからそれ自体引っ張り出して
解除させちゃうマクロらしいから、パスワードの複雑さ関係がないんで

2017/09/09(土) 15:11:07.11

まず使い方が間違ってる

Excelのパスワードの目的は秘密を守るためじゃなくて、
素人がマクロやシートをうっかり改変して業務に支障を来すのを防ぐのが目的と言われてる

簡単に破れる方法であっても、意図的な操作がなければ破られることはないんで、目的は達成できている

2017/09/09(土) 15:41:57.68

>>65
ありがとう。やってみる。

2017/09/09(土) 16:07:18.45

まあパスワードかけるなら出来合いじゃなくて
プログラマのハシクレなら自分でそんくらい作れってことかね
他人をあてにするもんじゃないっすね

2017/09/09(土) 16:17:06.10

一体どういう目的でパスワードかけるんだろう。実装をどうしても隠したいとかでなけりゃ破られても構わんだろ。

2017/09/09(土) 17:24:58.63

社内で使ってるけど皆が改変して収拾がつかなくなって管理出来なくなるのを防ぐとかだったな。
前に見たパスワード掛けてたとこは。

2017/09/09(土) 17:28:22.68

MSの公式見解だとパスワードはワークグループを分けて誤操作を防ぐ為のものであって、セキュリティ性は無いとされているね。

一応、VBAはバイナリファイルを読み書き出来るから、自分で暗号化技術調べてAES的な暗号化ファイルとか生成出来るぞ。
でも苦労して実装しても運用する奴らが素人だと暗号化した意味が無くなるから作り損だぞ。

2017/09/10(日) 03:50:51.77

ソフト名忘れたけどVectorにあるExcelアドインで>>68の手法が失敗するやつあったな

2017/09/10(日) 05:17:37.27

>>83
しかし、LibreOfficeのCalcからならあっさり見えてしまうんだな。
見えるからコピペし放題

2017/09/10(日) 06:19:08.10

運用ルールで勝手にいじるなって言えばいいじゃん

68 (ﾜｯﾁｮｲ b7e4-NEns) · 2017/09/10(日) 07:28:43.80

>>83
ほおそれは興味深いですねえ
探してみます

2017/09/10(日) 08:56:33.56

>>85
そんなんで解決できるなら誰も苦労せんわ
「何もやってないのに勝手におかしくなった」は聞き飽きた

2017/09/10(日) 09:11:12.77

「何もやってないのに勝手におかしくなった」
これ一番イラッと来るよな

「パソコンが壊れたー（フリーズしてるだけ）」
とか。

2017/09/10(日) 09:12:05.85

「改変したい点がある。自分でやるのでパスワードを教えてください。」と
直球で要望が来たらどうするの？

2017/09/10(日) 09:17:02.60

>>89
修正履歴書いて残せばいい

2017/09/10(日) 09:21:21.87

チーム開発でも修正ルールがあるし
会社のシステムを書き換えるには上司の許可いるだろ

2017/09/10(日) 09:25:28.85

>>89
そいつ用にパスワード外して送ればいいんじゃね
もちろん改変後の質問は受けない

2017/09/10(日) 09:31:38.83

>>89
普通の会社では許可しない
規定のフォーマットで要望書をシステム課に出せ

2017/09/10(日) 09:51:20.19

>>91
vbaには無い。
こういうのは一般事務の女の子向けに男がヘラヘラ書いたもの、ってかvbaが安易に書き換えられる仕様は常識

会社の基幹システムはもちろん無理だけどね
変更許可は絶対に降りない。然るべき手続きが必要

2017/09/10(日) 10:26:56.59

>>94
基幹に近い所でVBAが動いてるうちの会社みたいなところもあるんやで
一部上場でテレビCMもガンガン流してて誰でも知ってる大企業

入力ミスをなくすためにワークシートにロックかけて入力から印刷までフォームなしのVBAで組んである
モッサリでめっちゃ使いにくいシステムで見積書とか作らされてる
下っ端の俺にはどうしようもない

2017/09/10(日) 10:31:20.17

>>95
世間知らずでスマンかった…
ご愁傷様なのだ

2017/09/10(日) 11:32:55.83

売り上げ金額が合わなかったので勝手に書き換えておきましたとかやってんのか？

2017/09/10(日) 11:38:17.51

知らない人がいつの間にか勝手に書き換えてましたじゃ駄目だろ

2017/09/10(日) 11:39:01.10

>>96
アライさんおつｗ

2017/09/10(日) 11:49:00.36

>>97
それ現場、現場の人間はマクロを触る能力なんかない
現場では調整用貯金箱とか作って、金が多かった日は貯金、少なかった日はそこから取り崩しとかやる

2017/09/10(日) 12:47:48.18

後は、客はパスワード解除しないだろう、出来ないだろうという前提でパスワード掛けてたことも有ったな。
客の別の部署の奴がプログラムの仕組みが見れては困るという要望に対して。

そういう案件の場合はExcelでやらずにちゃんとシステム組むべきという俺の指摘は営業的事情により却下されたな。
客がそんなに金使いたく無いんだとよ。

2017/09/10(日) 12:54:29.64

>>94
それやって収拾がつかなくなって、ちゃんと管理しましょうという話になってパスワード掛けることになる。

2017/09/10(日) 13:27:08.19

Range("J5:J12").Value = "AVERAGE (RC[-7]:RC[-2])"

これどういう意味ですか？

2017/09/10(日) 13:28:56.73

>>103
これの右辺が分からないです

2017/09/10(日) 14:00:23.18

エクセルVBAの課題ですが分かりません。
Dim Target As Range
Dim temp As String

For Each Target In Range("C2:C6")
'セルの値をすべて全角に置換して変数tempに代入する。変換する文字列は、Valueプロパティを使って取得する
temp = StrConv(Target.Value, vbUpperCase)　←
'置換後の値の全角スペースを半角スペースに変換し、元のセルに入力する
Range("C2:C6") = temp　　←
Next
End Sub
元の値は半角カタカナで別の名前が各セルの記入されています。
矢印の個所が参考書を元に記述しました。

2017/09/10(日) 14:06:44.63

>>105
の文章がﾜｶﾗﾝｶ

68 (ﾜｯﾁｮｲ b7e4-NEns) · 2017/09/10(日) 14:26:35.95

>>83
ツールあったから結局買いました
情報ありがとう
http://conex-office-password.com/shopdetail/001000000001/
もし駄目でもどうせ1000円だからな

2017/09/10(日) 14:49:33.57

>>107
これな。
仕組みが想像できる。

2017/09/10(日) 15:03:50.97

>>103
こうじゃないの？
Range("J5:J12").FormulaR1C1 = "=AVERAGE(RC[-7]:RC[-2])"
範囲上のセルに数式を入力する

2017/09/10(日) 15:06:41.55

>>105
何が分からんのか具体的に

後多分コードが間違っている
Sub a()
For Each target In Range("C2:C6")
'セルの値をすべて全角に置換して変数tempに代入する。変換する文字列は、Valueプロパティを使って取得する
temp = StrConv(target.Value, vbUpperCase)
'置換後の値の全角スペースを半角スペースに変換し、元のセルに入力する
target.Value = temp
Next
End Sub

2017/09/10(日) 15:15:05.13

>>104
右辺は単なる文字列です
セルにそういう「数式みたいな」文字列が入るだけ

2017/09/10(日) 15:15:26.00

というか、どうしても解除されたくなかったらxllアドインとかにすべきでしょ。

2017/09/10(日) 16:45:46.81

>>100
それ持ち逃げしてもばれないよね

2017/09/10(日) 17:52:32.57

>>107
ああ、それ俺も買ったけど良かったよ。VBEを開こうとすると途端にエラーが出るので
大抵は諦めるね。俺はそれに加えてvbeのフォントを白にして嫁ないようにした。

2017/09/10(日) 22:09:00.85

>>105
何がわからないのか全然わからない
そのソースコードを実行するとどうなるのか、期待値は何なのか書かないと

まあ、ひとまず temp を配列にしないとダメじゃない？

Dim temp() As String
Dim i As Integer

Redim temp(Range("C2:C6").Rows.Count)

i=0
For Each Target In Range("C2:C6")

temp(i) = StrConv(Target.Value, vbUpperCase)
i = i + 1

Next

Range("C2:C6") = temp

2017/09/11(月) 01:14:13.54

>>115
１セルずつループして処理すればtempを配列にする必要なんてない

どうでもいいけど、全角はvbWideじゃないのかね
全角スペースを半角にするのはReplaceあたり使えば良いんじゃね
課題ならその課題出した奴に聞けよと思うが

2017/09/11(月) 07:33:49.76

>>115
速度稼ぐために配列にしてるなら読み出し側もやるべき

2017/09/11(月) 07:48:20.80

>>116-117
うん
送信押して、あっと思った
しかも縦方向だと2次元配列じゃないとだめだったっけ？

>>105
ごめん
多分>>110が正解

課題と質問の意図がよくわからないけど

2017/09/11(月) 08:13:17.53

>>105
矢印の業務が空行の状態が問題文、矢印の行は君が書いた、と解釈した。

矢印1行目は、vbuppercaseじゃなくて、vbwide。uppercaseは大文字だ。
2行目は、target=temp

そういう問題じゃないようだが、高速化するなら、
Rangeを配列に代入
配列内で計算
配列をrangeに書き戻し
する。

2017/09/11(月) 08:14:49.10

>>119
(誤)矢印の業務
(正)矢印の行
スマン

2017/09/11(月) 15:42:49.07

なんで君らは
>置換後の値の全角スペースを半角スペースに変換し
は放置なの？

2017/09/11(月) 20:27:23.15

>>121
質問の仕方が悪いから、だな。

では>>119の2行目を
target=replace(temp, "◻︎", " ")
# ◻︎は全角スペースと読んでくれ
に変更。

2017/09/12(火) 02:00:32.49

target=replace(temp, "全角スペースと読んでくれ", " ")

2017/09/12(火) 23:06:27.96

3万行前後ある列のデータの隣セルに、別シート5000行前後の列から、if条件に該当したものをループで貼り付ける処理をしているけど処理が遅い
3万行の列が外側ループi、5000行の列が内側ループjで回してる
処理時間短縮の為に、最初にiとjのデータを配列で取得して比較を行い
該当するものをセルに出力するように変更した結果、配列使用前より処理時間が短くなった
もっと処理時間を早くするにはどうすればいいかお知恵をください

2017/09/12(火) 23:14:30.57

>>124
5000がユニークデータなら
コレクション

2017/09/12(火) 23:23:18.75

>>124
別シート5000をディクショナリーに放り込んで、引いてくれば良いんでない？その手の話で高速化したいなら二重ループはナンセンス。

2017/09/12(火) 23:27:05.41

>>124
条件と出力形式が分からないからハッキリとは言えないけど、
もし該当したものを都度吐き出しているなら、結果自体を配列にして最後に吐き出す様に直すと早くなるはず。

2017/09/13(水) 00:11:27.19

>>124
ここに載ってるDOUBLE TRUE VLOOKUPを試してみてよ
lookupの時間だけ比較してもDictionaryより速いらしいんだが
http://analystcave.com/excel-vlookup-vs-index-match-vs-sql-performance/

アルゴリズムだけ考えたらバイナリサーチより
ハッシュテーブルのほうが速そうなもんだけどな

2017/09/13(水) 00:31:34.36

>>125-126
ありがとうございます！
なるほど、コレクションかディクショナリーで連想配列を使用すれば早いってことか
イマイチ使い方が分からず使用していなかった
大量にデータを処理する場合は活用すれば、処理が早くなる可能性があるって事なんですね
今後は意識して使わせていただきます

>>127
ありがとうございます！
今のコードは　ifがTrue時にその都度セルに出力するコードです。
if 配列A(i)=配列B(j) then
worksheets(出力先シート)cells(i,出力先列)=配列B(j)
end if

結果自体を配列にするというのこういう処理でいいでしょうか?
結果を取得する配列Cを宣言
if 配列A(i)=配列B(j) then
配列C(i)=配列B(j)
end if
この後の処理は、配列C(i)の値をループでシートに出力する以下の処理でしょうか?
worksheets(出力先シート)cells(i,出力先列)=配列C(i)

>>128
ありがとうございます！
これは普通のキーワードでネットで調べてもヒットした記憶がないワードです
今後に活用させていただきます

2017/09/13(水) 00:32:10.56

ハッシュテーブルはハッシュの算出方法で変わるからな
対象データに対して衝突が少なくて計算の軽いハッシュ関数じゃないと

2017/09/13(水) 00:58:34.20

>>129
配列とセルは相互に直接的なやりとりが出来るんで調べてみて。
いちいちループ回さなくていいから。

簡単に言えば

Dim A As Variant
A = Range(範囲).Cells

とすれば配列Aに範囲の中身が入り、

Range(範囲) = A

とすれば配列Aの中身が範囲に入る。

2017/09/13(水) 07:30:42.98

ネットでエクセルVBAを勉強中なんですがオススメ参考本とかないでか？
特にユーザーフォームを使って作業が多いです。

2017/09/13(水) 07:35:00.26

>>124
条件の内容にもよるけど、ワークシート関数のvlookupは使えないの？

2017/09/13(水) 08:14:57.58

>>133
横からすまん。試してみりゃいいんだろうけど...
vlookup(ワークシート関数)って、マクロから使うメリットがあるほど速いの？

2017/09/13(水) 08:26:49.86

お前VBAスレの自称初心者だろW

2017/09/13(水) 08:46:51.19

>>134
試せよｗ

って言いたけど昔試験したから教えるわ
実はvlookupは参照範囲を広くしなければかなり早い
ただ2003の頃の話だから、今はどうかしらん

**107** (ﾜｯﾁｮｲ 8a2e-NEns) · 2017/09/13(水) 09:25:03.74

たかがソフト買うのに個人情報を洗いざらい要求してくるセキュリティ企業って・・・
なんで俺の住所や電話番号がいるんだよ。なんに使う気だ

しかもダウンロードしようとしたら送ってきたパスワード
そっくりコピペなのにエラー出るじゃねえか
大丈夫かここ

2017/09/13(水) 10:51:59.22

会社紹介を見る限りまともじゃなさそう
ツールの中身も海外フォーラムに載ってるソースコピペしてたりしてな

2017/09/13(水) 12:27:02.45

標準のワークシート関数ってVBAで作ってある上に、色々な目的に使えるように冗長性があるから、
目的に対して最も効率的な処理方法であるという条件下だと処理時間は必ず

ワークシート関数 ≧ VBAマクロ

が成り立つ。
特にVLookupとかはセル毎に走査してるから共有可能な部分も個別に計算してるんで効率面はお察し。

ただしワークシート関数とほぼ同じ機能をVBAマクロで実装するのが時間の無駄って事もあるので、
マクロ内でワークシート関数を利用するという状況を考えるのは難しくない。

2017/09/13(水) 12:34:53.43

>>136
ありがとう。

なんか>>139の言う(汎用|冗長)性による低速処理の懸念があって、あまりワークシート関数を使う事考えないんだよね。

2017/09/13(水) 12:45:19.24

お前らが書いた腐ったvbaコードよりワークシート関数が遅いとかｗ
どんだけ頭がお花畑なんだよｗ

2017/09/13(水) 13:09:42.32

ワークシート関数は条件さえ整えばマルチスレッドで動くぞ
確実にVBAより早いわ

2017/09/13(水) 13:55:24.11

https://msdn.microsoft.com/ja-jp/library/office/bb687899.aspx

公式ページ↑見ると2007からマルチスレッディングになってるらしいけど、
経験上、同じ様な目的の実装で処理時間が

VBAマクロ＞　ワークシート関数

になった事がないんだよな。

十分に最適化されたVBAマクロよりもワークシート関数の方が処理が早くなるって状況の具体例があれば参考になるんだけど、
そもそも目的が違うのもあってワークシート関数が重いからユーザー定義関数を作りましょうみたいなページしか見当たらない。

2017/09/13(水) 14:13:42.05

>>141,142
例えば、>>124の質問内容を試しに書いて動かしてみたら、90msecで終わった。これを「vlookup使えばもっと早くなる」と言われても、「別にこれ以上早くなくていいし」って感じ。

2017/09/13(水) 14:20:51.63

例えばこんな感じ？

Dim Temp (30000,1)

For i=0 To 30000

Temp(i,1)=Application.WorkSheetFunction.Vlookup(Sheet1.Cells(i,1),Sheet2.Range("A:A"),1,False)

Next

Sheet1.Range("B1:B30000)=Temp

10000×1000で試してみたけど、>>131を二重ループで回した場合5秒かかってたところが、このvlookupは1秒でできた。

ちなみにExcel2002(職場のクソマシン)だから、また今は違うのかもしれないけど。

2017/09/13(水) 14:23:19.54

FORのところ i=1 だね
手打ちなんで許して

2017/09/13(水) 14:53:37.84

>>145
うーん、

Sub test1()
Dim Temp(1 To 30000, 1 To 1)

For i = 1 To 30000
Temp(i, 1) = WorksheetFunction.VLookup(Worksheets(1).Cells(i, 1), Sheet2.Range("A:A"), 1, False)
Next

Worksheets(1).Range("B1:B30000") = Temp
End Sub

Sub test2()
Dim d As Dictionary: Set d = New Dictionary

b = Sheet2.Range("A1:A5000").Value
For Each c In b
If Not d.Exists(c) Then d.Add c, c
Next

a = Sheet1.Range("A1:B30000").Value
For i = 1 To 30000
If d.Exists(a(i, 1)) Then a(i, 2) = d(a(i, 1))
Next

Sheet1.Range("A1:B30000") = a
End Sub

この二つだとtest2の方が早い。といっても数字を周期的に並べただけだし、test1の方はヒットしない数字があるとエラー吐く。
もっとフェアなデータでやれば話は違ってくるかもしれないけど、この例だとワークシート関数の方が遅いね。

2017/09/13(水) 15:46:41.67

おまえら>>128にパフォーマンステストの結果が載ってるのになぜ見ない

[lookupテーブル件数:200k, lookup回数:25kの結果]
- VLOOKUP: 11.97sec
- VBA Dictionary: 0.45sec (※Dictionaryの生成時間は含まない)
- DOUBLE TRUE VLOOKUP: 0.05sec

VLOOKUPで最後のオプションをFALSEにするとリニアサーチだから遅い
TRUEにするとバイナリサーチだから速い O(N)とO(log N)の違い
ただ見つからない場合に不都合が出るからそれを解決するためのDOUBLE TRUE VLOOKUP
同じリニアサーチでもVLOOKUPが単純な二重ループより数倍速いのはC/C++使って最適化してるから

2017/09/13(水) 15:47:56.64

>>147
なるほどー
これは速い
勉強になった

>>124
余談だけど、こんなやり方もどうぞ
コード量は少なさなら一番
速度は>>147の方が速かったけど

Range("A1:A30000")="vlookup(Sheet!A1,Sheet2!A:A,1,false"
Range("A1:A30000").value=Range("A1:A30000").value

2行目は式を消してる

2017/09/13(水) 15:50:55.04

>>149
ごめん、いろいろとおかしかった

Range("B1:B30000")="vlookup(Sheet1!A1,Sheet2!A:A,1,false"
Range("B1:B30000").value=Range("B1:B30000").value

2017/09/13(水) 16:03:25.39

ほんとグダグダで申し訳ない
しばらくROMります…

Range("B1:B30000")="=vlookup(Sheet1!A1,Sheet2!A:A,1,false"
Range("B1:B30000").value=Range("B1:B30000").value

2017/09/13(水) 23:54:00.93

>>147
あー
> b = Sheet2.Range("A1:A5000").Value
でvalue(のみ)を配列につっこめるんか、あー

ありがとう(・ω・)ノ

2017/09/14(木) 00:05:19.65

>>124で処理時間高速化の質問させてもらった者です

>>131
ありがとうございます！
このスレの内容にあるようにセルを配列に入れてから、if文は配列同士で比較して、結果も配列で取得するように修正しました
配列の値を、一度にセル範囲に出力するコードに修正したら８分前後かかっていた処理が、１分～2分前後になって、処理時間がめちゃめちゃ早くなって快適になりました

みなさんが言われてるように、VBAでワークシート関数を使用した場合の処理時間は、
おなじみオフィス田中さんのページに、配列をセル範囲に出力するのと同じぐらいの処理時間が高速だと書いてありますね
3万行と比較する列データが、複数シートで複数列だったので、次回同じような処理を作成する時は
VLOOKUP用の一時シートを追加して、3万行の列を一番左の列の検索キーにして、比較列はVLOOKUPで取得する実装をしてみます

2017/09/14(木) 08:15:22.18

>>153
分単位はかかり過ぎだと思うなぁ。
データや環境の違いがあるから、純粋に比較はできんだろうが、124の内容を素直に読んでコード書いて動かして見たが、100msecかからんかったよ。
ちな、
3万行のデータを配列1に丸ごと代入
5千行のデータを配列2に丸ごと代入
配列2から辞書を作成
配列1を先頭から順に見て、辞書に存在しない値を消す
3万行データの隣に配列1を丸ごと貼る

2017/09/14(木) 08:29:32.22

配列にして一括で読み書きする
これが全てだよ

2017/09/14(木) 10:18:54.39

VBAにも新規参入者がいて20年くらい前の話題が新たになされるのにちょっと感動した

2017/09/14(木) 11:15:17.22

Windows10のアップデートでIEオブジェクトの挙動がまた変わったらしい？
データ収集とかしてる人はアップデートしない方がいいかも

2017/09/14(木) 12:34:44.93

配列オブカリビアン

2017/09/14(木) 12:36:58.88

この期にIEオブジェクトをわざわさ生成するやり方はやめたらいいと思う

2017/09/14(木) 12:39:57.29

vbaでスクレイピングはねぇ

2017/09/14(木) 12:42:41.16

>>157
EdgeではなくIEの挙動が変わったのか?
にわかには信じかたいが。

2017/09/14(木) 14:27:44.29

あるシートに所属するプロシージャから
自分の所属するシートを参照するにはどうしたらいいのでしょうか？
プロシージャを他のシートにコピペしたら
コードを書き換えなくてもコピペ先のシートを参照するようなコードを
書きたいのですが

2017/09/14(木) 14:33:45.54

>>162
シートモジュールは、その中で完結する処理を書く場所なので、
シートを飛び越えた処理を行いたいなら標準モジュールに書くべき。

2017/09/14(木) 14:54:53.92

>>163
いや、むしろシートを飛び越えないでほしいんですが
シートで完結した処理にしたいのでシート名や番号による
シートの指定を排除して、所属するシートのセルを参照したいのですが
検索して調べるとセルを参照する方法としては
シート名を決め打ちする方法ばかりが出てくるので困っているのです

2017/09/14(木) 15:38:59.34

Active Sheet とSheet名以外でSheet 特定できるんだっけ？

2017/09/14(木) 15:49:13.64

application.callerでチェックボックスの動きの判定をするようにしたらメチャ重いんだが、これなんとかならない？

2017/09/14(木) 15:52:46.83

>>162
Sub foo()
Debug.Print Me.Name
End Sub

何故かthisworksheetは存在しない
Meを使う

2017/09/14(木) 15:53:31.32

セルはもちろんこんな感じね
Sub foo()
Debug.Print Me.Cells(1, 1)
End Sub

2017/09/14(木) 15:54:13.48

>>166
http://15g.jp/post-314/
これ使っても駄目＿

2017/09/14(木) 15:57:20.47

>>169
なるほどイベント抑止か。
ありがとう、やってみる

2017/09/14(木) 15:58:45.31

>>164
シートモジュールに直書きする場合はSheetsの部分を省略してCellsやRangeから書ける。

シートを指定しない場合の振る舞いが、
標準モジュールではActiveSheet（見えているシート）だったものが、
シートモジュールではそのシートに限定されるという変化をするので併用する場合は注意が必要。

2017/09/14(木) 16:00:47.13

標準モジュールに書いて、対象シートはsetした方がいいと思うけどなぁ

2017/09/14(木) 16:02:42.23

>>167
ありがとうございます。
まさに求めていた回答です。Meとは気づきませんでした。

2017/09/14(木) 18:24:24.22

>>169
うへえ。
確かにそれは効果が高いが、それだけでOKとか、どんだけレベル低いんだ?

むしろ速度を意識したプログラム書いてる奴にとってはそれやっても速度なんて変わらんのだが。

2017/09/14(木) 18:59:59.93

>>174
ではレベルの高い方法をどうぞ

2017/09/14(木) 19:19:27.73

>>175
速度はコードによるから～でOKなどというものじゃない。
別に、意識してコード書かなくても下記の後半部分にあるようなコードになる。
その上で速度を上げようと意識すれば一番最後のようになる。

http://excel-ubara.com/excelvba4/EXCEL228.html

2017/09/14(木) 19:23:47.78

それで駄目ならマルチプロセスにする。
適用出来ないことも多いけどな。
objEx1=CreateObject("Excel.Application")
を複数作ってそれぞれに独立した計算をさせる。

2017/09/14(木) 19:34:05.01

>>176
ありがとう、ここまで出来るとは思わなかった
他にも関数で高速化極めてて驚いたわ
良いものを見れた

2017/09/14(木) 20:04:51.07

シート作ったりセルに書き込んだりというエクセル側の操作をすると、
その度にイベントが走ることになるから、これを如何に抑えるかってのが重要なんだけど、
最初から全部覚えようとするとパンクする。

2017/09/14(木) 20:30:17.25

どんだけ頑張ってコード書いても、大量の演算は結局ピボットの方が高速なんだよな

2017/09/14(木) 22:08:17.65

For i = Lbound(X) to Ubound(X)

a = MATCH関数でXを検証

if XとMATCH関数が一致 Then

For j = Lbound(Z,2) to Ubound(Z,2)

Z(k,j) = cells(a,j-1).value

k = k + 1

next j

end if

Debug.print i

Next i

Xは要素が3万ほど
シートの列数も3万ほどでXと同じ値を格納
シートの列数は50程度

これでDebug.printの表示感覚が1秒ごとくらいなんだけど遅いですか？
30000 * 50 = 150000ループ
実に8時間ほどで納得行かない遅さなんです

2017/09/14(木) 22:14:39.02

>>181
ファイルを上げてくれないか
実際に試してみないと分からん

2017/09/14(木) 22:16:42.03

>>181
そのコードの処理を見る限り、早くする方法はいくらでもあるけど、
処理がくっそ遅いMatch関数使って何かやってるんだから処理速度的にはそんなもんじゃないの。

2017/09/14(木) 22:18:51.12

何をするプログラムなのか最初に書いてくれないと、どこを観点に見ればいいかわからない

まあ、とにかくRangeを二重ループで触っちゃイカンよ

つーか、>>124と同じ課題か？

2017/09/14(木) 22:22:13.96

>>182
仕事用なんですいません…

>>183
MATCH関数遅いんですか？
元は3万行のシート回してたけどそれも遅かったんでMATCH関数使ったんですが

2017/09/14(木) 22:33:58.37

もしかして学校課題か何かか。三万行って。

2017/09/14(木) 22:37:11.21

MATCHもmatch_typeに1か-1を指定した時はバイナリサーチだから遅くないよ
0を指定してるとリニアサーチだから件数に比例して遅くなる

2017/09/14(木) 23:03:43.05

学校の課題なら手伝わんぞ、それはカンニングだw

2017/09/14(木) 23:08:26.96

>>186
駆け出しのマです

>>187
少ない件数なら激早なんですけど多いと影響あるんですね

仕事だから検証に時間さくわけにもいかないけど納得行かないんですよね
連休に試してみますね

2017/09/14(木) 23:20:59.58

>>189
上司に聞いてみたら？恒久的に超早くなりそうなんで何時間か遊ばせてもらえませんかって
家でも研究中といえば良い
俺が上司なら、ルーチンワークは最優先で効率化させるけどな

2017/09/14(木) 23:22:39.03

マ？
クベ？？

2017/09/14(木) 23:37:20.66

仕事でプログラマやってんなら、それこそ会社に理解があろうがなかろうが検証時間取れないなんて事はないだろう。
どっちにしろ>>124と条件が被ってるんで>>147のtest2を参考に作り直せば速度的にはどうにかなるんじゃないの。

2017/09/15(金) 00:05:39.06

緑郎？

2017/09/15(金) 05:58:01.90

駆け出しママ？

2017/09/15(金) 12:58:58.26

>>172
オブジェクト変数多用は速度低下の一因になるぞ

2017/09/15(金) 13:29:55.54

駆け出しのマトリ？

2017/09/15(金) 17:41:48.27

表示シートのセルA1に『SD11』と入力してからコマンドボタン1を押したらマスターシートのA列をFINDで検索かけて下に一行ずつ表示シートの項目別にそれぞれ転記するにはどうすればいいですか？
検索まで出きるんですが、転記とループのやり方が分かりません。
https://i.imgur.com/Bd3WIPk.jpg
https://i.imgur.com/3IPhNPk.jpg

2017/09/15(金) 19:01:40.44

>>197
たぶんこれ、マスターシート？の一行目が項目になっている事から、
編集→テーブルでテーブル化してフィルタで絞ってコピペした方が早いんじゃないの。

種類の所だけ

Sub foo()
　For Each x In Range("A1:A12")
　　　if Len(x.Value) Then y = x.Value Else x.Value = y
　Next
End Sub

みたいな形で空白を埋めるようにして。

2017/09/16(土) 07:57:41.80

どっちがマスターシートかすらわからないのは俺だけなのか？

2017/09/16(土) 08:55:03.94

動物記を書いた方