1002コメント374KB

Excel VBA 質問スレ Part45 [無断転載禁止]©5ch.io

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

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

2017/01/03(火) 02:51:16.56ID:9Y8iTik6

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

※前スレ
Excel VBA 質問スレ Part44
http://echo.2ch.net/test/read.cgi/tech/1479421482/

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

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

2017/01/04(水) 23:43:25.46ID:T2t87YWx

スレ生きてるかな？

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

2017/01/05(木) 01:36:19.20ID:3zitFiAl

エクセルVBAのオススメ参考書とか教えて下さいませ

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

2017/01/05(木) 16:31:19.34ID:rordfoes

おちるぞー

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

2017/01/05(木) 17:49:33.10ID:3kVSXnTB

>>3
Office TANAKA

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

2017/01/05(木) 19:15:59.64ID:YlAAgZIP

落ちたら落ちたでまた立てればいいのよ

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

2017/01/05(木) 21:50:17.01ID:PrUsv/Jo

excel関数のoffsetやsumifを多用してたせいでマクロ遅くなるなんて知らんかった
マクロ実行中も再計算してるのか

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

2017/01/05(木) 21:53:00.56ID:EGC2o4Lu

>>7
計算止めてマクロ実行し終わるときに再計算させるんじゃダメなの？

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

2017/01/05(木) 22:36:04.40ID:fbqYOVIL

>>3
Me.Thread

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

2017/01/05(木) 22:50:47.05ID:olwzS93J

どんな言語でもそうだけど、それ単体で覚えるって無理だよな。

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

2017/01/05(木) 23:06:24.30ID:fbqYOVIL

ていうかVBAって、
半分くらいは、神エクセルを作るクソ上司対策の為にあるようなもんだけどな。

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

2017/01/06(金) 00:22:50.70ID:m+Jpe1FL

>>7
作り終わったら描画と計算止めるのは速度上げたいならマストだぞ

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

2017/01/06(金) 00:32:13.04ID:yTw61UwJ

>>3
レベルによると思います。
マクロ少しはつかえるのか、全くダメだけどExcelは得意（関数、機能など）だとか、関数もよく分からんとか。
IF関数もよく分からないレベルだと、まずはExcelの関数（ワークシート関数）と、機能（条件付き書式とか、テーブルとか）をある程度勉強した方がいい｡

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

2017/01/06(金) 19:20:32.03ID:Eygm90s9

新年早々質問いきます！
選択している写真の存在するセル領域Rangeを取得したいと思っています。
ところが、セルピッタリの位置に写真を配置（Alt+写真ドラッグ・Alt+拡大縮小）した場合に、特定のサイズの時に1セル余分に取得してしまう事が分かりました。
正確にRangeを取得できるように直したいのですが、何か良いアイディアを頂けないでしょうか。

'現在選択している写真の領域Rangeを選択状態にするテスト
Sub SelectShapeRangeTest()
Dim SP As Shape
For Each SP In Selection.Parent.Shapes
If SP.Name = Selection.Name Then Exit For
Next
Range(SP.TopLeftCell, SP.BottomRightCell).Select
End Sub

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

2017/01/06(金) 19:32:50.62ID:5HA7V59p

>>14
Rangeを選択してその大きさにShapeのサイズを変える

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

2017/01/06(金) 19:50:55.68ID:5HA7V59p

>>14
Rangeが大きくなった事を判定してRangeを小さくするとか
大きくなったRangeに合うようにShapeを移動する
例えばRangeの中心とShapeの中心が重なるようにとか

全てのShapeを同じ大きさにするとか

シートにシェイプは1つだけにしてシートの左上とシェイプの左上を合わせるとか

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

2017/01/06(金) 19:54:21.08ID:ylhkczHt

>>15
スマホから、主です。
回答ありがとうございます。

たしかにこれから写真を貼るのであれば、その方法で解決すると思いますが、あくまで既に配置済みの写真から読み取る必要が有るんです。

上記はテストコードなのでセレクトしていますが、これを関数化して膨大な配置済みの写真からそれぞれのrangeを取り出すのが最終目標なので。

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

2017/01/06(金) 21:04:04.05ID:S2R5Pk4v

>>17
どうせギリギリのところで次のセルに被ってるんだろ
対象のシェイプより少しだけ小さいシェイプおいて取得すりゃいいんじゃね？

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

2017/01/06(金) 21:54:38.99ID:Q5cZMFD3

>>14
vbaでオラが画像を貼る時は
デフォのセルの左上を基準にするだけで
セルをはみ出そうが、画と画が被ろうが、複数枚貼っていく

その時、画像のセル位置はセーブしてるし
shapes.nameを一意に付けておくので
後でサイズ変更したり削除したり、、操作は自在なのだが

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

2017/01/06(金) 23:58:00.16ID:8yYsxO6K

初めてお伺いさせていただくんですが、

マクロでvlookupを使いたいと思っているのですがエラーしか返ってこず途方にくれています。。
=VLOOKUP(D8,データ欄!$C$9:$D$28,2,FALSE)
D8にはユーザーフォームで入力した品目名が出力されており、それに呼応するIDがデータ欄!C9:D28に記載されており、
E8にIDを出力したいと考えています。

ヒントでも頂ければ幸甚に存じます。

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

2017/01/07(土) 00:25:21.43ID:LrFag0bm

それ、マクロの問題なんですかね？？
vlookup関数でエラーが出てるの？

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

2017/01/07(土) 00:30:28.46ID:2J+LIFNT

>>12
途中でエラーが出て、アレっ?となる罠付きだけどな。

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

2017/01/07(土) 00:37:52.01ID:2J+LIFNT

>>20
Cells(1,1).Value="=VLOOKUP(D8,データ欄!$C$9:$D$28,2,FALSE)"なのか?
WorksheetFunction.VLookupなのか?
実行時エラーなのか?
#N/Aなのか?

何となく、余計な改行コードが入っているとか、
数字の123と文字の123を比較してるとか、
そんな罠のような気がするけど。

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

2017/01/07(土) 00:48:37.10ID:CI9p857v

>>20
面倒くさいからこれ貼っとくわ
http://www.relief.jp/itnote/archives/excel-vba-error-trap-vlookup-function.php

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

2017/01/07(土) 00:49:41.86ID:TOrGuStJ

自分の解釈をできるだけ排除して
事実だけを伝えた方がいい時もある

エラーと言っているが画面に表示される文字列やダイアログは何なのか
どんなタイミングで表示されるのか
自分が書いたコードはどんなものか

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

2017/01/07(土) 00:51:23.73ID:LrFag0bm

ファイル上げてくれると、分かりやすいんだけどね。

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

2017/01/07(土) 00:55:21.10ID:CI9p857v

まさかエクセルの関数をそのまま書いてるとかじゃないやろな

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

2017/01/07(土) 09:02:21.49ID:Xo1hV6SK

>>22
作り終わるってのはテストも込みでだぞ

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

2017/01/07(土) 23:07:08.30ID:so7B4l6a

>>20は解決したのかな？

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

2017/01/07(土) 23:55:04.69ID:5WVocSaL

すいません
とあるセルに入力するとvbaが実行するようにしてるのですが
コードに間違いがあるとエラーがでて終了を押すとまたセルに入力してもvbaが実行されなくなります (MsgBoxで確認してます)
実行メニューのリセットを押しても同じです
ファイルを開き直してもダメでexcelを再起動するとまた動くのですが再起動せずにする方法ってありますか?

excel 2016 win7です

003130

2017/01/08(日) 00:49:37.29ID:r1ASQ1zZ

追記で動かなくなるのはそのWorkbook_SheetChange だけで
ボタンからsubの実行は動くようです

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

2017/01/08(日) 00:52:16.58ID:mMTwBd0e

>>30
もしかして
Application.EnableEvents = False
とかしてて　その後実行時エラーが出て Trueに戻せてないとかじゃね?
On Error
でエラートラップして Trueに戻すようにしないと

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

2017/01/08(日) 12:37:54.44ID:C9GVPqMv

てかコードの間違いを直せよ...

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

2017/01/08(日) 14:23:39.68ID:aANViJyG

>>33
まさにこれだが
デバッグモードにして止めてみろって

003530

2017/01/08(日) 14:39:47.53ID:r1ASQ1zZ

>>32
それが原因だったようです
ありがとうございますm(__)m

>>33-34
デバックモードよく分かってません
勉強してみます

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

2017/01/08(日) 21:58:52.89ID:LSCp0tLP

超初心者の質問です。

A行（A5～Aずっと下まで）に「食物」が入力されていると仮定して、
B行が一行上の値と違う場合、
一行上に行を挿入して、その行に「果物」と入れたいです。

B行に入る値
・みかん
・バナナ

Sub 入力
一番上 = 5
一番下 = Cells(Row.Count,1).End(xlup).Row
For Cnt = 一番上 To 一番下
If Cells(Cnt,1)="りんご"
If Cells(Cnt-1,2）<> cells(Cnt,2) then
If cells(Cnt,2)="みかん"　or Cells (Cnt, 2) ="バナナ"　Then
Range(Cells(Cnt,1),Cells(Cnt,2)).Insert
End If
End If
End If
Next Cnt

本来は「みかん」と「バナナ」をまとめて、その上に「果物」の見出しをつけたいのに、
このコードだと「みかん」と「バナナ」のそれぞれ一行上に行が入ってしまいます。
どうしたら、まとめて一行だけ挿入することが出来るでしょうか？

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

2017/01/08(日) 22:25:17.31ID:KINgQhrq

>>36
俺が困るので先に言っとく
『行』とは横のことを指す（左の数字）
縦を指すときは『列』と呼ぶ（上の英字）

そこをふまえて
>B列が1行上の値と違う場合、1行上に行を挿入して、その行に「果物」と入れたい
と言う条件と
>「みかん」と「バナナ」のそれぞれ1行上に行が入ってしまいます。
と言う結果は整合性のある状態なので問題はないと思う

もしも望む結果ではないのであればまず

　>B列が1行上の値と違う場合、

を見直すことが必要
やりたい内容を鑑みれば

　B列に入力があり、1行上の値が空白である場合、

と変えればいいと思う

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

2017/01/08(日) 22:42:31.86ID:LSCp0tLP

>>37
そうですね、表現の仕方が間違っておりました。

フォーマットがもう決まってしまっているので、これで何とかしたいんですよね・・・。
どうしても、「みかん」「バナナ」をまとめて、一行上に行を挿入したいのですが。
今、思いついたのは、「みかん」「バナナ」にそれぞれ行が入ってしまうことは承知で、
「果物_01」「果物_02」と連番になるように設定して（やり方は分かっていないです）
それで_02の行は削除するというifを組んで、
さらに「果物_01」の行は「01」の部分を省くコードを書けばいいかな、と思ったりもしますが、
効率が悪いでしょうか？（やり方は分かっていないです、ただ思いつき）

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

2017/01/08(日) 22:49:26.11ID:KINgQhrq

>>38
条件を変えればいいと思う

A列（A5～Aずっと下まで）に「食物」が入力されていると仮定して、
B列が1行上の値と違う場合、
1行上に行を挿入して、その行に「果物」と入れたい
↓
A行（A5～Aずっと下まで）に「食物」が入力されていると仮定して、
B列に入力があり、1行上の値が空白である場合、
1行上に行を挿入して、その行に「果物」と入れたい

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

2017/01/08(日) 23:15:02.67ID:LSCp0tLP

>>39
なるほど、そういう発想もありますね。
でもそうなると、どういうｺｰﾄﾞになるのでしょうか？？(･･?)

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

2017/01/09(月) 00:15:41.73ID:t+szxcoe

すごい、エスパーがいるな
ちょっと日本語が意味わからないからアドバイス出来ないわ…

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

2017/01/09(月) 00:55:08.08ID:4/AW5Uyc

>>36
A列は全て　「食物」が入力されているのよね
で
B列にどのように入ってるの?

>B行に入る値
>・みかん
>・バナナ

これ以外は無い(すなわち空セル)って事?
コード見ると「りんご」ってあるみたいだけど???

んで　どのような結果を　お望み?

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

2017/01/09(月) 00:58:47.84ID:5IQR8Haa

それって、

分類1
商品1
商品2
分類2
商品3
商品4

みたいなフォーマットなの?
もしそうなら、それは神エクセルだから、

>フォーマットがもう決まってしまっているので

そこをどうにかして、こう直したほうがいいと思うけど。

分類名　商品名
分類1　　商品1
分類2　　商品2

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

2017/01/09(月) 01:00:35.84ID:5IQR8Haa

違う、こうか。

分類名　商品名
分類1　　商品1
分類1　　商品2
分類2　　商品3
分類2　　商品4

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

2017/01/09(月) 02:56:04.77ID:JlqgPD3/

すみません、割り込みなのですが簡単な質問なので失礼します((+_+))

コマンドボタンを１回クリックするごとにラベルに100ごと加算される物を
作りたいのですが、↓だと、あたりまえですが１度クリックしかできません。

Private Sub CommandButton1_Click()
x = 100
Label1.Caption = x

End Sub

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