Excel VBA質問箱 IV

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

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


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

38 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【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の操作でしたら他のサイトをあたりましょう。

・ツリー全体表示


	【81723】Re:Dir関数内でMoveFileについて

トム - 21/4/8(木) 13:14 -


	引用なし

	パスワード

▼山内さん：
>移動できます
>コードが間違ってるだけかと思います

そうなんですね。
それを聞いて安心しました。
もう一度コード見直します。
ありがとうございました。

・ツリー全体表示


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

ｍ - 21/4/8(木) 10:32 -


	引用なし

	パスワード

Excelで関数を使用し、左に文字を入力したら右側に入力済みの文字を反映させたいのですが、可能なのでしょうか。

例えば
AT列４５行目に何か（都道府県等）入力したら
AU列４５行目に前日キャンセルと言う文字が出てくる。

ただ、全日キャンセルの文字はAT列４５行目が空白の時は見えなくなる。
と言うようなことはできるのでしょうか。

教えてください。。。

・ツリー全体表示


	【81721】Re:Dir関数内でMoveFileについて

山内 - 21/4/8(木) 8:51 -


	引用なし

	パスワード

移動できます
コードが間違ってるだけかと思います

・ツリー全体表示


	【81720】Dir関数内でMoveFileについて

トム - 21/4/7(水) 22:56 -


	引用なし

	パスワード

こんにちは。
質問が有ります。

Dir関数で特定のフォルダ内のExcelファイルを検索して、
そのExcelファイルでの処理を終えた後に、
そのExcelファイルを別フォルダに移動しようと考えています。

ですが実際に動かしてみると繰り返しのdir()の1行上でファイルを移動するとした場合、
dir()の段階でファイルが存在しないとエラーで弾かれ、
だったらdir()の後ろにファイルを移動するとした場合でもdir()の段階で弾かれました。

お聞きしたいのは一旦dir関数で検索を始めてしまったフォルダ内のファイルは、
dir関数を抜けるまでは移動してはいけないのでしょうか？

・ツリー全体表示


	【81719】Re:勤怠表Time関数条件設定

Emma

- 21/4/6(火) 23:48 -


	引用なし

	パスワード

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

すみませんでした。

・ツリー全体表示


	【81718】Re:勤怠表Time関数条件設定

γ - 21/4/6(火) 23:43 -


	引用なし

	パスワード

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

・ツリー全体表示


	【81717】勤怠表Time関数条件設定

Emma

- 21/4/6(火) 22:35 -


	引用なし

	パスワード

D9に始業時間
E9に就業時間が入っています。

8:30-17:30が通常勤務時間です。
8:30前と17:30以降が残業時間です。

8:30前の残業時間を条件に追加したいのですが、
どのように追加したらよいでしょうか。

=IF(E9>TIME(17,30,0),E9-TIME(17,30,0),IF(AND(E9>=TIME(0,0,0),E9<=TIME(8,30,0)),E9+"24:00"-TIME(17,30,0),""))

また休日だった場合、C9に曜日が書かれています。(土、日、祝)
4時間以内が10000円、9時間以内が20000円、それ以降は、2500円の残業代を払いたいです。
どのように設定したらよろしいでしょうか。
アドバイスを頂けますでしょうか。よろしくお願いいたします。

・ツリー全体表示


	【81716】Re:averageifs関数の条件に変数を使用し...

マナ - 21/4/4(日) 19:45 -


	引用なし

	パスワード

▼初心者さん：

>Range("B2:B" & a), ">b-1", Range("B2:B" & a), "<=b")

こうでは

Range("B2:B" & a), ">" & b-1, Range("B2:B" & a), "<=" & b)

・ツリー全体表示


	【81715】Re:averageifs関数の条件に変数を使用し...

初心者 - 21/4/4(日) 15:02 -


	引用なし

	パスワード

＞山内さん
ご回答ありがとうございます。

">b-1"　→　">" & b & "-1"
"<=b"　→　"<=" & b
と上記通りに書き換えてみたところ、
ｺﾝﾊﾟｲﾙｴﾗｰ：修正候補：区切り記号または）
と出て来てしまいました。

どう対処すればよろしいでしょうか？

・ツリー全体表示


	【81714】Re:特定の文字検索し、その一文字前に特...

γ - 21/4/3(土) 21:04 -


	引用なし

	パスワード

一例です。
Sub test()
　　Dim s1 As String　　'元の文字列
　　Dim s2 As String　　'中間項
　　Dim s3 As String　　'結果の文字列
　　Dim p As Long

　　s1 = "あいうえおあいうえ(お)あいうえお(あ)いうえお……"

　　Do
　　　　p = InStrRev(s1, "(")
　　　　If p > 0 Then
　　　　　　s2 = "☆" & Mid(s1, p - 1) & s2
　　　　　　s1 = Left(s1, p - 2)
　　　　Else
　　　　　　s3 = s1 & s2
　　　　　　Exit Do
　　　　End If
　　Loop
　　Debug.Print s3
End Sub

・ツリー全体表示


	【81713】特定の文字検索し、その一文字前に特定文...

初心者です - 21/4/3(土) 19:24 -


	引用なし

	パスワード

エクセルでハイパーリンク先のテキストファイルを開くときに、開くテキストの文字列の中から特定の文字を検索して、その一文字前の文字の前に特定の文字列を追加したいのです。

　例えば、「あいうえおあいうえ(お)あいうえお(あ)いうえお……」とあったとして、"("を検索して"☆"を入れるとします。
結果として、「あいうえおあいう☆え(お)あいうえ☆お(あ)いうえお……」としたいのです。

すみません。どなたか教えていただけないでしょうか。

・ツリー全体表示


	【81712】Re:RoundUp関数の処理が重くなってしまう

山内 - 21/4/1(木) 18:09 -


	引用なし

	パスワード

訂正
For i = 2 To UBound(v)
は
For i = 1 to UBound(v)

Range("J2:J" & r) = v
は
WorkSheets("Sheet2").Range("J2:J" & r) = v
に書き換えてください

・ツリー全体表示


	【81711】Re:RoundUp関数の処理が重くなってしまう

山内 - 21/4/1(木) 17:47 -


	引用なし

	パスワード

50000行ものセルをいちいち書き換えてたら条件付をしてもかなり重いです
配列を使いましょう

Sub Sample()
　　Dim v As Variant
　　Dim i As Long, r As Long
　　With Worksheets("Sheet2")
　　　　r = .Cells(Rows.Count, 10).End(xlUp).Row
　　　　v = .Range("J2:J" & r)
　　End With
　　
　　For i = 2 To UBound(v)
　　　　If v(i, 1) - Int(v(i, 1)) > 0 Then
　　　　　　v(i, 1) = Int(v(i, 1)) + 1
　　　　End If
　　Next
　　
　　Range("J2:J" & r) = v
　　
End Sub

・ツリー全体表示


	【81710】Re:averageifs関数の条件に変数を使用し...

山内 - 21/4/1(木) 17:02 -


	引用なし

	パスワード

">" & b & "-1"
"<=" & b

Range("C2:C" & a)と書いてる部分と同じ要領です

・ツリー全体表示


	【81709】averageifs関数の条件に変数を使用したい

初心者 - 21/4/1(木) 10:54 -


	引用なし

	パスワード

averageifs関数の条件部分に変数を指定したいのですが、どうも文字列として認識されてしまっているようです（下記の＞ｂ－１と＜＝ｂの部分）。
どうにかならないでしょうか？

B列に1～280までの数字が沢山、
C列に平均値を出したいデータが並んでいます。
番号別の平均値はD列に出したいです。

Dim a
a = Worksheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row

Dim b As Double
On Error Resume Next
For b = 1 To 280
Cells(b + 1, 4) = WorksheetFunction.AverageIfs(Range("C2:C" & a), Range("B2:B" & a), ">b-1", Range("B2:B" & a), "<=b")
Next b

・ツリー全体表示


	【81708】RoundUp関数の処理が重くなってしまう

rau - 21/4/1(木) 10:33 -


	引用なし

	パスワード

RoundUp関数を用いて、J列に並んでいる1，1，1，1,　1.222, 2，2，2，2，2…といった感じに整数の間にたまに小数まじりが出てくる数値の小数点を切り上げたいと考え、下記のマクロを作成しました。

’J列に並んでいる数値を小数点切り上げる
Dim m, o
For m = 2 To Worksheets("Sheet2").Cells(Rows.Count, 10).End(xlUp).Row
o = Cells(m, 10).Value
Cells(m, 10).Value = Application.WorksheetFunction.RoundUp(o, 0)
Next m

J列の最終行（＝ⅿ）が大体50,000程度あり、PCのスペックが足りないのか処理落ちして固まってしまいます。

Ｉｆの条件分岐で整数ならば何もしない、小数ならばＲｏｕｎｄＵｐで整数に丸める、といった風に出来るのでしょうか？
何か良い案があれば教えて欲しいです。
宜しくお願い致します。

・ツリー全体表示


	【81707】Re:一つのフォルダ内にあるエクセルファ...

マナ - 21/3/28(日) 21:03 -


	引用なし

	パスワード

▼［名前なし］あｓｄさん：

たたき台です。まずは、これを実行してみてください。
mergeシートにデータを統合します。

Sub test()
　　Dim p As String
　　Dim fn As String
　　Dim ws As Worksheet
　　
　　With Application.FileDialog(msoFileDialogFolderPicker)
　　　　If .Show Then
　　　　　　p = .SelectedItems(1) & "\"
　　　　Else
　　　　　　Exit Sub
　　　　End If
　　End With
　　
　　Set ws = ThisWorkbook.Worksheets("merge")
　　ws.UsedRange.Offset(1).ClearContents
　　
　　fn = Dir(p & "*.xlsx")
　　
　　Do While fn <> ""
　　　　With Workbooks.Open(p & fn)
　　　　　　.Sheets(1).UsedRange.Offset(1).Copy _
　　　　　　ws.Range("a" & Rows.Count).End(xlUp).Offset(1)
　　　　　　.Close False
　　　　End With
　　　　fn = Dir()
　　Loop
　　
End Sub

・ツリー全体表示


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

38 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free