Excel VBA質問箱 IV

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

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


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

38 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【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
としてください。

・ツリー全体表示


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

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


	引用なし

	パスワード

▼γ さん：

お教えいただきありがとうございます。

B列でセルの結合をしており、B列では発動できなかったので
K列のみで実施してみたところ発動し、感動いたしました。
（K列に植えていた（笑）式も消えてしまいましたが。。）

B列での形式を変える等をし、K列で植えている式が消えないよう
工夫してみます。

早急にご回答いただき、感謝いたします。
誠にありがとうございます。

・ツリー全体表示


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

γ - 21/4/18(日) 10:03 -


	引用なし

	パスワード

こんな感じですかね。
Sub testA()
　　Dim cols As Variant
　　Dim s　　As String
　　Dim r　　As Long
　　Dim c　　As Variant

　　cols = "B,K,L,O,AA"　　　　　　 '対象列
　　s = Sheet1.Range("H3") & Sheet1.Range("H4") 'つなげた文字列という前提
　　With Sheet2
　　　　For Each c In Split(cols, ",")
　　　　　　For r = 6 To 400
　　　　　　　　If InStr(.Cells(r, c).Value, s) > 0 Then .Cells(r, c).ClearContents
　　　　　　Next
　　　　Next
　　End With
End Sub

# 式や関数は"植える"ものなんですねえ。（さすが瑞穂の国ですw）

# 最近、返事の無い方が見られますが、そうならない範を示して頂きたい。

・ツリー全体表示


	【81727】複数列から特定の条件を含むセルをクリア...

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


	引用なし

	パスワード

宜しくお願い致します。

■複数列から特定の条件を含むセルをクリアするマクロ
　
複数列：sheet２のB列、K列、L列、O列、AA列のそれぞれ6行目から400行目
特定の条件：sheet１のセル（H3）と（H4）の両方の値を含む
　　　　　　sheet２のB列から順番に該当セルをクリアしたい
　　　　　　※B列からK列に反映する関数をK列の一部に植えているので
　　　　　　　関数を保護するために先にB列から消したいです。

具体的に申しますと

sheet１のH3→1年
sheet１のH4→2組

※仕様上、セルH3に「1年2組」と指定せず、H3とH4の別のセルにしています。

sheet２のB列の内容↓
1年1組5番
1年2組38番←38番という番号も含めてこのセルをクリア
1年3組7番
1年2組6番←このセルをクリア
2年2組12番
3年1組9番
1年5組18番
1年2組2番←このセルをクリア
1年2組9番←このセルをクリア
4年2組30番
6年2組60番
1年2組35番←このセルをクリア

sheet２のK列の内容↓
1年2組5番←このセルをクリア
1年4組7番
1年9組6番
2年7組12番
3年8組9番
1年6組18番
1年2組38番←このセルはB列から反映しているので
　　　　　　B列のセルがクリアになるとセルに植えている
　　　　　　関数は消えないようにしたいです
1年3組2番
1年2組89番←このセルをクリア
4年2組30番
6年2組76番
1年2組58番←このセルをクリア

他のsheet２のL列、O列、AA列も同じです。

このような作業を実現することは可能でしょうか？
宜しくお願い致します。

・ツリー全体表示


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

マナ - 21/4/13(火) 17:22 -


	引用なし

	パスワード

▼やまとさん：

これで、どうなりますか？

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

・ツリー全体表示


	【81725】シート内のすべてのピボットテーブルに対...

やまと - 21/4/13(火) 9:52 -


	引用なし

	パスワード

質問失礼します。シート内に複数あるピボットテーブル（項目等はすべて同じ）に対して、同じフィルターをかけるコードを記述していますが、
「PivotitemクラスのVisibleプロパティを設定できません。」とエラーがでてきてうまくいきません。
当方VBA初心者なので、皆さんのお力を借りたいです。。以下、コードです。

Dim PT As PivotTable
Dim WS As Worksheet
Dim itm As PivotItem
　　For Each WS In ThisWorkbook.Worksheets
　　　　For Each PT In WS.PivotTables
　　　　For Each itm In PT.PivotFields("納品番号").PivotItems
　　　　　　Select Case itm.Value
　　　　　　　　Case "QQQQ", "AAAA"
　　　　　　　　　　itm.Visible = False
　　　　　　　　Case Else
　　　　　　　　　　itm.Visible = True
　　　　　　End Select
　　　　Next itm
　　Next PT
　　Next WS
End Sub

・ツリー全体表示


	【81724】Re:Excel　関数のやり方教えてください

山内 - 21/4/8(木) 14:07 -


	引用なし

	パスワード

Excel 質問とかで検索してたどり着いたんでしょうけど
ここはExcelのVBA（有り体に言えばプログラミング）という分野の質問をする場所です。
一般的なExcelの操作でしたら他のサイトをあたりましょう。

・ツリー全体表示


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

38 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free