Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【82031】Shapeの削除について

ken - 22/6/3(金) 12:14 -


	引用なし

	パスワード

いつもお世話になっております。

図の削除について教えてください。
図形("Picture 2467")が無ければ何もしない、あったら削除したいのですが
下のマクロをではない時にエラーになってしまいます。
どの様に記述したら良いのかお教え下さい。

Sub test()
If ActiveSheet.Shapes.Range(Array("Picture 2467")) Is Nothing Then

Else
　　ActiveSheet.Shapes.Range(Array("Picture 2467")).Delete
End If
End Sub

・ツリー全体表示


	【82030】Re:検索結果で出た値の列だけを表示したい

マナ - 22/6/2(木) 14:05 -


	引用なし

	パスワード

▼しまじさん：

>オートフィルターを使わずに上記のような条件で表示、非表示することは可能なのでしょうか？

行を非表示（Hidden=True）にしてはどうですか。

・ツリー全体表示


	【82029】検索結果で出た値の列だけを表示したい

しまじ - 22/5/29(日) 23:17 -


	引用なし

	パスワード

はじめまして、困っている事があるので助けていただきたいです。
今現在業務で進捗管理表を作っているのですが、作業項目や担当者が多い為絞り込みをして見やすくできないかと考えてます。
例えばですが
作業項目　　担当者
改善　　　　鈴木
掃除　　　　武田
パソコン　　宮崎
というようなデータの中であいまい検索を使って鈴木さんの列だけを表示したい時に"鈴"と値を入力して（ワイルドカードを使用して)、鈴木さんの列だけを表示できるようなコードを作っているのですが、
中々上手く自分が思い通りにしたいマクロが作れません。
ちなみになんですが、作業項目の下の改善、掃除…はセルを結合しているためオートフィルターでの抽出ができない状態です。
オートフィルターを使わずに上記のような条件で表示、非表示することは可能なのでしょうか？

・ツリー全体表示


	【82028】Re:複数ブックから同名のsheetをコピーし...

OK - 22/5/25(水) 11:51 -


	引用なし

	パスワード

>　　Const SOURCE_DIR As String = "C:\Data\Source\"

"C:\Data\Source\"を実際のフォルダパスに書き換えてください。最後に"\"を付けるのを
忘れずに。

>　　Const DEST_FILE As String = "C:\Data\AllReports.xls"

"C:\Data\AllReports.xls"を実際の集計用ブックのパスに書き換えてください。
C:\Data\AllReports\までがフォルダパスで、AllReports.xlsが集計用ブックの名前です。
これは既存のブックではなく、マクロで生成されるブックですので、既存のブックのパスを指定
しないようにしてください。

> 'コピー元の「報告書」シートを集約用ブックにコピー

サンプルコーデでは、「報告書」シートを集約用ブックにコピーしています。
シート名は実際のシート名に書き換えてください。

・ツリー全体表示


	【82027】Re:複数ブックから同名のsheetをコピーし...

れれ - 22/5/25(水) 2:59 -


	引用なし

	パスワード

▼マナさん：
ありがとうございます。
わたしもこのサイトを見ていたのですが、知識不足により理解するのが難しく
ソースについてはフォルダやExcelファイルのパスを打ち込めばよいのでしょうか？

・ツリー全体表示


	【82026】Re:複数ブックから同名のsheetをコピーし...

れれ - 22/5/25(水) 2:57 -


	引用なし

	パスワード

▼OK さん：
アドバイスありがとうございます。
これから頑張っていきたいと思います。

・ツリー全体表示


	【82025】Re:複数ブックから同名のsheetをコピーし...

マナ - 22/5/24(火) 19:23 -


	引用なし

	パスワード

複数ブックのシートを1つのブックにコピーする
ht tps://www.moug.net/tech/exvba/0060003.html

・ツリー全体表示


	【82024】Re:複数ブックから同名のsheetをコピーし...

OK - 22/5/24(火) 10:53 -


	引用なし

	パスワード

まずは、コピー元のブックとコピー先のブックを
開いた状態で、コピー元のブックからコピー先
のブックへシートを複製する作業をマクロの
自動記録してみてください。
参考コードが得られると思います。

また、コピー先のシート名がどのようになった
かもコードを作っていくうえで参考になると思
います。

・ツリー全体表示


	【82023】複数ブックから同名のsheetをコピーして...

れれ - 22/5/24(火) 10:38 -


	引用なし

	パスワード

同じフォルダに入っている、複数のExcelファイルがあります。
ファイルの中身の形式は一緒でsheet名も同じになっています。
この複数のファイルの特定のSheetだけを、一つのファイルにコピーしてまとめたいです。
なにか良い方法はありますでしょうか？？

・ツリー全体表示


	【82022】Re:｢図形の書式設定｣作業ウィンドウをＶ...

Ｄｕ

- 22/5/21(土) 11:51 -


	引用なし

	パスワード

▼Ｄｕさん：
>お世話になります。初めて質問させて戴きます。
>EXCEL Ver2013でテキストボックスを作成して、
>※1 選択した状態から⇒書式⇒ワードアートより「影」⇒「影のオプション」を選択すると、｢図形の書式設定｣作業ウィンドウが開きます。
>これをマクロで下記の様にすると一度目は開きませんでした。
>
>Application.CommandBars("Format Object").Visible = True
><エラー内容>
>'Visible'メソドは失敗しました 'CommandBar'オブジェクト
>のエラー表示されてしまいます。
>
>然し、手動で ※1 を行って、
>Application.CommandBars("Format Object").Visible = False
>にすると、実行します。
>更に、Application.CommandBars("Format Object").Visible = True も実行しました。
>
>最初だけ、手動で※1を行うと実行してくれます。
>「'Visible'メソドは失敗しました」は、最初に何か宣言が必要なのでしょうか?
>
>大変お手数を掛けますが、どうぞご教授の程、宜しくお願い致します。

◎解決しました。
コードが期待どおりに機能しない理由は、（過去のバージョン）CommandBarsがユーザーインターフェイスを使用しなくなったためでした。
リボンを使用することで解決しました。

・ツリー全体表示


	【82021】｢図形の書式設定｣作業ウィンドウをＶＢＡ...

Ｄｕ

- 22/5/20(金) 19:23 -


	引用なし

	パスワード

お世話になります。初めて質問させて戴きます。
EXCEL Ver2013でテキストボックスを作成して、
※1 選択した状態から⇒書式⇒ワードアートより「影」⇒「影のオプション」を選択すると、｢図形の書式設定｣作業ウィンドウが開きます。
これをマクロで下記の様にすると一度目は開きませんでした。

Application.CommandBars("Format Object").Visible = True
<エラー内容>
'Visible'メソドは失敗しました 'CommandBar'オブジェクト
のエラー表示されてしまいます。

然し、手動で ※1 を行って、
Application.CommandBars("Format Object").Visible = False
にすると、実行します。
更に、Application.CommandBars("Format Object").Visible = True も実行しました。

最初だけ、手動で※1を行うと実行してくれます。
「'Visible'メソドは失敗しました」は、最初に何か宣言が必要なのでしょうか?

大変お手数を掛けますが、どうぞご教授の程、宜しくお願い致します。

・ツリー全体表示


	【82020】素人です。

パペポン - 22/5/19(木) 23:09 -


	引用なし

	パスワード

見よう見まねで、作成しました。質問もへたですが
ファイル取得というフォルダを作成しました。その中からファイルを取得するコードを作成したして取得する事は出来ました。標準モジュールとしては
sub ファイル一覧取得（）
Sheet1.Range("B:B").Clear
Sheetl.Range("B1")
=
Dim myFile As String, myFolder As String, filepath As String
filepath = ThisWorkbook.Path
myFile = Dir(filepath &
If myFile:
MsgBox
Exit Sub
End If
"' Then
Dim i As Long
¡= 0
With Sheetl
Do
Hyperlinks.Add Anchor:=Cells(3 + i, 2), Address: -ThisWorkbook.Path & ")" & myFile, _
SubAddress:
TextToDisplay:=myFile
¡=i+1
myFile = Dir0
Loop Until myFile = ''"
End With
MsgBox "完了しました。 ''
End Sub
そのあと1エクセルの1業目行頭AからNo.Bに取得名
CにキーワードDにフリガナと作製しました。
フリガナは
標準モジュールに
Function GetPhonetic(cell As Range)
GetPhonetic = Application.GetPhonetic(cell)
End Function
を作成して、エクセルのフリガナの行に=GetPhonetic（B3）などと入力しています。
ここでキーワード検索を作成したいのですが、どのようにすれば良いのでしょうか?

・ツリー全体表示


	【82019】Re:ツリー作成：クリックすると新たに下...

OK - 22/5/11(水) 15:23 -


	引用なし

	パスワード

エクセル　プルダウン　連動
でネット検索したら参考になるかも。

・ツリー全体表示


	【82018】ツリー作成：クリックすると新たに下位層...

myi - 22/5/11(水) 12:23 -


	引用なし

	パスワード

Excelマクロ超初心者です。
Excelを使って、トラブルシューティング用のツリーを作成したいです。
動作としては、最初にテキストボックスをクリックすると、その下位層にあるテキストボックスが何件か表示され、さらにそのどれかのテキストボックスをクリックするとそれに対応したテキストが表示されるというものです。
最初にトラブルの項目⇒クリックでその原因候補が何件か⇒原因をクリックするとその対応が表示されるというものです。
まずこの動作がマクロでできるのかということと、出来るならUserFormでどういったボックスを使えばいいのかとう教えていただきたいです。
不足情報あればなんなりと。。
何卒宜しくお願い致します。

・ツリー全体表示


	【82017】Re:重複削除　最大値

マナ - 22/4/22(金) 22:45 -


	引用なし

	パスワード

▼初めてトライしますさん：
>
>【質問】A列の製品名で重複している行の内、
>F列の数値が一番大きいものを残すという指示を出したい。

降順でソートしてから「重複の削除」を実行するとか。

>

・ツリー全体表示


	【82016】Re:dictionaryの使い方

マナ - 22/4/22(金) 22:40 -


	引用なし

	パスワード

▼mihamiha さん：

＞うまく抽出ができずに困っております。

そのコードを提示してください。

・ツリー全体表示


	【82015】dictionaryの使い方

mihamiha - 22/4/22(金) 10:45 -


	引用なし

	パスワード

dictionaryで
A列とB列をキーにC列とD列の値をアイテムとして格納。

この格納データから別のシートに記載したA列とB列のキーの条件にあうアイテムを抽出したいです。うまく抽出ができずに困っております。

・ツリー全体表示


	【82014】重複削除　最大値

初めてトライします

- 22/4/21(木) 17:07 -


	引用なし

	パスワード

以下、色々調べて動くようになりました。
1点、重複削除に条件を追加したいのですが、
なかなかよいサンプルが見つからず、
教えていただけると嬉しいです。
宜しくお願いいたします。

【質問】A列の製品名で重複している行の内、
F列の数値が一番大きいものを残すという指示を出したい。

Sub 合計値右端へ()
Dim MR As Long
Dim i As Long
MR = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To MR
Cells(i, 7) = WorksheetFunction.SumIf(Range(Cells(2, 1), Cells(MR, 1)), Cells(i, 1), Range(Cells(2, 3), Cells(i, 3)))
Next i
Cells(1, 7) = "完成Cs数合計"
For i = 2 To MR
Cells(i, 8) = WorksheetFunction.SumIf(Range(Cells(2, 1), Cells(MR, 1)), Cells(i, 1), Range(Cells(2, 4), Cells(i, 4)))
Next i
Cells(1, 8) = "完成個数合計"

ActiveSheet.Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
'A列の製品名で重複をチェックし、行を削除する

End Sub

・ツリー全体表示


	【82013】テキストボックス内の数式ツール内の文字...

azu - 22/4/19(火) 17:13 -


	引用なし

	パスワード

Excelの数式ツールで書いたδやσなどを検索して一括置換させたいです。
標準の検索機能ではテキストボックス内の文字は検索できません
そこで下記の表題のページを参考にしました。

”[Excel]図形内のテキストを検索・置換したい”

しかし、数式ツールで表記された、δ等は
検索に引っかからないようです。

Excelにおいて数式ツールで描画された文字はどのような定義をされるのでしょうか。
それをソースコード内にうまく組み込めるでしょうか。
良いやり方あればご教授ください。

・ツリー全体表示


	【82012】Re:文字列の数字を抽出

どすん - 22/4/10(日) 6:58 -


	引用なし

	パスワード

文字列セルの左上に三角のマークが表示されている場合は、「数値に変換する」を選択すれば数値へ変換でるようです。

他にも　"excel 文字列数値変換" で検索すれは色々な方法があるようですよ。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free