Excel VBA質問箱 IV

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

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


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

23 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【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 文字列数値変換" で検索すれは色々な方法があるようですよ。

・ツリー全体表示


	【82011】セル内に図形を貼り付けています

sinko

- 22/4/6(水) 17:44 -


	引用なし

	パスワード

大体、3000行あります.ところどころにセル高さを変えて図を貼り付けています。
途中には、文字列や空白セルがあります。
　この状態で、文字数に応じて行高さをフィットさせたり、途中の空白セルを削除したり、必要に応じて、複数行挿入したりすると、図の位置がずれます。オブジェクトのプロパティ設定が3種類あると思います。すべての設定試みました。また、図のあるセルは空白として削除されないように文字　図など入れておき、削除されないようにしています。●セルに合わせて,移動..等
　の設定に統一してマクロを流すと、図は完全にずれます。この設定の意味が違うのでしょうか今ではあきらめて、図を削除する方向に進めています。ネット上には尤もらしく書かれていますが、私のような経験はされていないのでしょうか？さっぱりわかりません。
　何かアドバイスをお願いします。

・ツリー全体表示


	【82010】文字列の数字を抽出

またまた教えてください - 22/4/5(火) 23:28 -


	引用なし

	パスワード

基幹システムからダウンロードした注文情報で
特定の型式だけをフィルタで抽出したいです。
型式が数字8桁の番号なのですが、システムから
ダウンロードした時はセルが文字列になっています。
そのせいなのか、他のアルファベットの型式と
同じようにフィルタがされません。。　　　　　　　　　　　　　　　

・ツリー全体表示


	【82009】Re:A AND B OR (C OR D)をOR(AND(A,B),O...

とおりすがり - 22/4/4(月) 1:59 -


	引用なし

	パスワード

構文木が取得できる言語であれば、例えば、以下のように書けます。
VBAだと難しいでしょう。
（簡単なものに限定すれば、ヒューリスティックな解法があるかもしれません）

s = "A AND B OR (C OR D)" の変換結果は、
　　"OR(AND(A, B), OR(C, D))"となります。

function test()
　　s = "A AND B OR (C OR D)"　　　　　　　　
　　s = replace(s, "AND" => "&&" , "OR" => "||" )
　　a = Meta.parse(s)　　# Expr型(AST表現)に変換
　　return recursive(a)
end

function recursive(a)
　　head = a.head
　　args1,args2 = a.args
　　
　　if typeof(args1) == Expr
　　　　ele1 = recursive(args1)
　　else
　　　　ele1 = string(args1)
　　end

　　if typeof(args2) == Expr
　　　　ele2 = recursive(args2)
　　else
　　　　ele2 = string(args2)
　　end

　　if head == :&&
　　　　return　"AND(" * ele1 * ", " * ele2 * ")"
　　elseif head == :||
　　　　return　 "OR(" * ele1 * ", " * ele2 * ")"
　　end　　
end

test()

・ツリー全体表示


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

23 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free