Excel VBA質問箱 IV

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

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


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

37 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【81749】Re:選択しているセルの一部に文字をいれる

通りすがり - 21/4/24(土) 21:56 -


	引用なし

	パスワード

お遊びコードです。
セル範囲をドラッグで選択して試してみてください。

ドラッグの方向によってstartとgoalのセルが違ってきます。
ドラッグ開始セルのアドレス情報を使用しています。

Sub test()
Dim sel As Range
Dim tl As Range
Dim tr As Range
Dim bl As Range
Dim br As Range
Dim startcell As Range
Dim goalcell As Range
　Set sel = Selection
　Set tl = sel.Resize(1, 1)
　Set tr = tl.Offset(, sel.Columns.Count - 1)
　Set bl = tl.Offset(sel.Rows.Count - 1)
　Set br = tl.Offset(sel.Rows.Count - 1, sel.Columns.Count - 1)
　'MsgBox "tl:" & tl.Address & vbCrLf & "tr:" & tr.Address & vbCrLf & "bl:" & bl.Address & vbCrLf & "br:" & br.Address
　Select Case ActiveCell.Address
　 Case tl.Address
　　Set startcell = tl
　　Set goalcell = br
　 Case br.Address
　　Set startcell = br
　　Set goalcell = tl
　 Case bl.Address
　　Set startcell = bl
　　Set goalcell = tr
　 Case tr.Address
　　Set startcell = tr
　　Set goalcell = bl
　 End Select
　 If startcell.Address = goalcell.Address Then
　　 startcell.Value = "s/g"
　 Else
　　　startcell.Value = "start"
　　　goalcell.Value = "goal"
　 End If
　 Set tl = Nothing
　 Set tr = Nothing
　 Set bl = Nothing
　 Set br = Nothing
　 Set startcell = Nothing
　 Set goalcell = Nothing
　 Set sel = Nothing
End Sub

・ツリー全体表示


	【81748】Re:フォルダ内のデータを指定フォルダに...

γ - 21/4/23(金) 20:22 -


	引用なし

	パスワード

ht tp://officetanaka.net/excel/vba/filesystemobject/filesystemobject03.htm
こちらを参考にしてみてはどうでしょう。（3文字目のスペースは取ってください）

ワイルドカードを使えますので、
FSO.CopyFile "C:\Tmp\*.PDF", "C:\Work\"
のようにしてみてはどうでしょう。

・ツリー全体表示


	【81747】Re:行のを削除・行の挿入について

TDS - 21/4/23(金) 18:56 -


	引用なし

	パスワード

▼山内さん：
>適当ですがA66が押し出されてA67に値が入ったら戻るを実行します
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>　　If Range("A67").Value <> "" Then
>　　　　Application.Undo
>　　End If
>End Sub

１行の削除と挿入に有効ですね。
複数行まもめての削除で試したら、削除されてしましました。

山内さんの情報をもとに、色々試してみます。
ありがとうございましたｍｍ

・ツリー全体表示


	【81746】Re:選択しているセルの一部に文字をいれる

そらお - 21/4/23(金) 17:51 -


	引用なし

	パスワード

通りすがり様　
上手く行きました。
ありがとうございました

・ツリー全体表示


	【81745】フォルダ内のデータを指定フォルダにコピ...

おのえ - 21/4/23(金) 16:55 -


	引用なし

	パスワード

現在社内でエクセルを使ったツールを作成しているのですが

セルAで指定したフォルダに存在しているPDFファイルを全て
セルBで指定したフォルダにコピーする

という仕組みをVBAを使って作成しようとしています。

VBAについては初心者なため色々調べてFileCopyコマンドを使って色々組んでみてるのですがどうも上手いこと動いてくれません・・・。

どなたかご教授いただけませんでしょうか？
よろしくお願いいたします。

・ツリー全体表示


	【81744】Re:選択しているセルの一部に文字をいれる

通りすがり - 21/4/23(金) 16:45 -


	引用なし

	パスワード

ループ処理しない方法です。

Sub test2()
Dim rng As Range
　Set rng = Selection
　If rng.Count = 1 Then
　　 rng.Value = "s/g"
　Else
　　 rng.Resize(1, 1).Value = "start"
　　 rng.Resize(1, 1).Offset(rng.Rows.Count - 1, rng.Columns.Count - 1).Value = "goal"
　 End If
End Sub

・ツリー全体表示


	【81743】Re:選択しているセルの一部に文字をいれる

通りすがり - 21/4/23(金) 16:40 -


	引用なし

	パスワード

↑はループ処理してますが、ループ処理
をしないでもできそうです。

・ツリー全体表示


	【81742】Re:選択しているセルの一部に文字をいれる

通りすがり - 21/4/23(金) 16:37 -


	引用なし

	パスワード

参考です。

Sub tesgt()
Dim rng As Range
Dim c As Range
Dim rngcnt As Integer
Dim cnt As Integer
　Set rng = Selection
　rngcnt = rng.Count
　cnt = 0
　For Each c In rng
　 cnt = cnt + 1
　 If cnt = 1 Then
　　　If cnt = rngcnt Then
　　　　 c.Value = "s/g"
　　　Else
　　　　 c.Value = "start"
　　　End If
　 ElseIf cnt <> 1 And cnt = rngcnt Then
　　　c.Value = "goal"
　 End If
　Next c
　
End Sub

・ツリー全体表示


	【81741】Re:選択しているセルの一部に文字をいれる

通りすがり - 21/4/23(金) 16:22 -


	引用なし

	パスワード

参考HPです。

ht　tp://officetanaka.net/excel/vba/tips/tips111b.htm

・ツリー全体表示


	【81740】選択しているセルの一部に文字をいれる

そらお - 21/4/23(金) 15:42 -


	引用なし

	パスワード

選択しているセルを自動取得し、始めと終わりのセルに文字を入れたいのてすが、例えばC3からF3を選択しているしているときに、C3には"start"、F3には"goal"という感じてす。また、選択しているセルが1つの場合にはそこに"s/g"と入れたいてす。
お力添えお願いします。

・ツリー全体表示


	【81739】Re:XLOOKUPで共有ファイルのデータを返す...

γ - 21/4/22(木) 15:10 -


	引用なし

	パスワード

こちらは、（Excelの）VBAに限定した質問掲示板なので、別のところをあたってください。

・ツリー全体表示


	【81738】XLOOKUPで共有ファイルのデータを返すには

トックティック

- 21/4/22(木) 14:11 -


	引用なし

	パスワード

XLOOKUP関数を用いて共有ファイルのデータを引用したいと思い、以下のような数式で試してみたのですが間違えているようです。どの様に修正すればよろしいでしょうか。

IF(F3="","",XLOOKUP(F3,\納期管理表\納期管理6.xls\納期管理!B:K,1,0))

納期管理表というファイルの納期管理6.xlsブック内の納期管理シートよりB～E・G
・Ｈ・I・Ｋ列の数値をＦ列の管理番号を用いて返したいと思ってます。
検索範囲が左端ではないのでXLOOKUPの使用になります。
エクセル365を使用してます。

よろしくお願い致します。

・ツリー全体表示


	【81737】Re:シート内のすべてのピボットテーブル...

マナ - 21/4/21(水) 21:09 -


	引用なし

	パスワード

▼やまとさん：

>処理自体はうまくいくのですが、最後に同様のエラーが出てきてプログラム自体が終了しません、、、
>
では、以下を試してみてください。

ht　tps://cloud6.net/so/excel/1408202

・ツリー全体表示


	【81736】Re:シート内のすべてのピボットテーブル...

やまと - 21/4/21(水) 16:26 -


	引用なし

	パスワード

▼マナさん：回答していただきありがとうございます！

処理自体はうまくいくのですが、最後に同様のエラーが出てきてプログラム自体が終了しません、、、

>▼やまとさん：
>
>これで、どうなりますか？
>
>PT.ClearAllFilters
>For Each itm In PT.PivotFields("納品番号").PivotItems
>　　Select Case itm.Value
>　　　　Case "QQQQ", "AAAA"
>　　　　　　itm.Visible = False
>　　End Select
>Next itm
>
>あるいは
>
>For Each itm In PT.PivotFields("納品番号").PivotItems
>　　If itm.RecordCount　> 0 Then
>　　　　Select Case itm.Value
>　　　　　　Case "QQQQ", "AAAA"
>　　　　　　　　itm.Visible = False
>　　　　　　Case Else
>　　　　　　　　itm.Visible = True
>　　　　End Select
>　　End If
>Next itm

・ツリー全体表示


	【81735】Re:行のを削除・行の挿入について

山内 - 21/4/21(水) 16:24 -


	引用なし

	パスワード

適当ですがA66が押し出されてA67に値が入ったら戻るを実行します

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Range("A67").Value <> "" Then
　　　　Application.Undo
　　End If
End Sub

・ツリー全体表示


	【81734】行のを削除・行の挿入について

TDS - 21/4/21(水) 15:49 -


	引用なし

	パスワード

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　
　　If Target.Row > 0 Or Target.Row < 66 Then
　　　'*** 1行目～66行目　行の削除／行の挿入をさせたくない。

　　End If

End Sub

シートの1行目～66行目の行のを削除・挿入をさせないチェックは、ございますか？
できれば、シートの保護以外で解決したいです。よろしくお願いしますｍｍ

・ツリー全体表示


	【81733】Re:Excelのシート内全体から、クロス抽出...

マナ - 21/4/20(火) 19:55 -


	引用なし

	パスワード

▼Tommy さん：

4つのテーブルのデータを、１つのテーブルに転記するということでしょうか

案１：dictionaryを使う
案２：統合機能を使う

などが思いつきますが、

>マクロが全く分からず

ということであれば、マクロでなく、手作業のほうがよいのでは？
案２であれば、手作業で可能です。
2、3分で結果を出せると思います。

・ツリー全体表示


	【81732】Excelのシート内全体から、クロス抽出す...

Tommy

- 21/4/20(火) 15:22 -


	引用なし

	パスワード

初めまして。マクロが全く分からず申し訳ありませんが質問します。

Excelのシート１内全体から、日付と文言でクロス抽出することは出来ますか。

【シート１】ダウンロードデータ
四半期連結損益（及び包括利益）計算書
␣　　2020/11/末　　2020/8/末　　2020/5/末　・　・　・
売上　　 100　　　　　 90　　　　　 80
原価　　 50　　　　　 45　　　　　 40
利益　　　50　　　　　 55　　　　　 40
・
・
・

連結損益（及び包括利益）計算書
␣　　2020/2/末　　・　・　・
売上　　 120
原価　　　55
利益　　　65
・
・
・

四半期連結貸借対照表
␣　　2020/11/末　　 2020/8/末　　2020/5/末　　・　・　・
現金　　100　　　　　　120　　　　　　90
借入金　 30　　　　　　 33　　　　　　40
・
・
・

連結貸借対照表
␣　　　2020/2/末　　・　・　・
現金　　　 95
借入金　　 30
・
・
・

【シート２】(入力済み雛型)←ここへマクロ等で自動的に抽出したいです。
␣　　　　　　　売上　　原価　　利益　　現金　　借入金　・　・　・
2020/11/末　　
2020/8/末
2020/5/末
2020/2/末
・
・
・

・ツリー全体表示


	【81731】Re:複数列から特定の条件を含むセルをク...

事務担当初心者 - 21/4/18(日) 16:09 -


	引用なし

	パスワード

ｙさん

たびたびご返答いただき、感謝いたします。

「結合セルであること」が必要条件であることすら認識できていないレベルで、提示する情報が漏れており、大変失礼しました。

=Empty

に変更しましたところ、B列でも作動し、K列でも式が消えず
「こうしたい」と思っていた通りの動作になりました。

いただいたコードから勉強させていただきます。

ありがとうございます！

・ツリー全体表示


	【81730】Re:複数列から特定の条件を含むセルをク...

γ - 21/4/18(日) 12:52 -


	引用なし

	パスワード

結合セルと後出しされても困りますよ。
予め言ってもらわないと。
.Clearcontentsではなく
=Empty
としてください。

・ツリー全体表示


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

37 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free