Excel VBA質問箱 IV

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

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


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

3 / 3831 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【82245】フィルターと印刷

まき - 23/12/23(土) 21:44 -


	引用なし

	パスワード

A列からV列まで項目ごとにデータが入っています。
ページ数にすると30ページ分くらいあります。
A列でフィルターをかけ昇順に並べ替えてA列のあるページのみ印刷。
D列でフィルターをかけ昇順に並べ替えてD列のあるページのみ印刷。
G列で…。
のように一部の列のみを印刷する方法や繰り返してできる方法があれば教えていただきたいです。
よろしくお願いします。

・ツリー全体表示


	【82244】チェックボックスを空白セルにしたい。

にゃんたん - 23/12/18(月) 12:21 -


	引用なし

	パスワード

[VBA]フォームを使わない軽量チェックボックスで幸せになろう

上記のサイトを参考にただの図形にマクロ文を入れてチェックボックスとして利用しています。
※以下チェックボックスの定義はこの文書とする。

このチェックボックスがアクティブシート上に複数あります。仮にチェックマークを外すという名前のボタン1つをクリックするだけで、アクティブシート上にあるチェックボックスにチェックマーク（文字コード2713）がついているものを外したいです。言い換えると空白にしたい（マクロ文は削除したくない）です。

このVBAを組むことはできますでしょうか？
よろしくお願いいたします。

・ツリー全体表示


	【82243】ピポッドテーブル　スライサーについて

もも - 23/12/12(火) 18:00 -


	引用なし

	パスワード

ピポッドテーブルの集計アイテムで集計結果の列を追加した上で、
スライサーを使用すると、スライサーにて洗濯した対象意外の行も表示
されてしまい、フィルター機能として活用できない状態になってしまいまきた。
解消法についてご教示ください。

・ツリー全体表示


	【82242】Re:条件追加

いとう - 23/12/12(火) 16:28 -


	引用なし

	パスワード

非常にたすかりました。

何個も条件追加できてよかったです。

ほんとうにありがとうございました。

・ツリー全体表示


	【82241】Re:条件追加

マナ - 23/12/9(土) 11:09 -


	引用なし

	パスワード

▼いとうさん：
>以下２つのコードを１つにまとめたいです。

削除は最初に１回だけにするとよいです。

>　　Range("D22:X24").FormatConditions.Delete

・ツリー全体表示


	【82239】条件追加

いとう - 23/12/7(木) 16:21 -


	引用なし

	パスワード

以下２つのコードを１つにまとめたいです。
If Then など使うのでしょうか？

Sub TEST20()
　
　　Dim Con
　
　　'条件付き書式を削除
　　Range("D22:X24").FormatConditions.Delete
　
　　'条件を、0~20に設定して、オブジェクトに格納
　　Set Con = Range("D22:X24").FormatConditions.Add(Type:=xlExpression, Formula1:="=And(0<=D22, D22<=20)")
　
　　'条件成立で、背景色を「水色」
　　Con.Interior.ColorIndex = 38
　
End Sub

Sub TEST25()
　
　　Dim Con
　
　　'条件付き書式を削除
　　Range("D22:X24").FormatConditions.Delete
　
　　'条件を、0~20に設定して、オブジェクトに格納
　　Set Con = Range("D22:X24").FormatConditions.Add(Type:=xlExpression, Formula1:="=And(21<=D22, D22<=25)")
　
　　'条件成立で、背景色を「緑色」
　　Con.Interior.ColorIndex = 7
　
End Sub

・ツリー全体表示


	【82238】Re:シート保護の際に置換

MK - 23/12/7(木) 11:09 -


	引用なし

	パスワード

ユーザーフォームなどを使用し、テキストボックスなどに
置換前と置換後の文字列を入力し、コマンドボタン
などで実行、でいかがでしょう。
もちろん、保護解除、置換、保護をマクロで行います。

・ツリー全体表示


	【82237】シート保護の際に置換

まき - 23/12/6(水) 19:42 -


	引用なし

	パスワード

複数名が入力するシートがあります。
一部だけ入力できるようにして、シート保護をかけています。
そのまま、置換だけは使えるようにしたいです。
良い方法があれば教えていただけたらと思います。
よろしくお願いします。

・ツリー全体表示


	【82236】Re:文字列を1000以上と判断する理由につ...

きつね - 23/12/1(金) 16:05 -


	引用なし

	パスワード

▼数値さん：
>文字の方が数値より大きいから

文字のほうが数値より大きいと判断されるのですね！
そういうことなら納得がいきました♪
ご返信ありがとうございます！

・ツリー全体表示


	【82235】Re:Getattr関数　エラー 76

数値 - 23/11/30(木) 20:39 -


	引用なし

	パスワード

tempフォルダにアクセスの許可が無いとか
他
ht　tps://kosapi.com/post-2957/

OneDrive関連だとちと解らない

・ツリー全体表示


	【82234】Re:条件付き書式をVBAで再現したい

数値 - 23/11/30(木) 20:22 -


	引用なし

	パスワード

Private Sub Worksheet_Change(ByVal Target As Range)

を使います
頑張ってください

・ツリー全体表示


	【82233】Re:文字列を1000以上と判断する理由につ...

数値 - 23/11/30(木) 20:19 -


	引用なし

	パスワード

文字の方が数値より大きいから
完全数値か数値に自動で変換できるものでちょっと違いますが
これらを判定してからになると思います。

例え（注）
MsgBox IsNumeric("0E00")
MsgBox IsNumeric("&7")
MsgBox IsNumeric("3D4")

完全に判定するなら、エクセル関数のisnumberを使う

・ツリー全体表示


	【82232】条件付き書式をVBAで再現したい

やと - 23/11/17(金) 17:59 -


	引用なし

	パスワード

VBAで条件付き書式を設定するのではなく、VBA自体で条件付き書式と同じ動作をするようにできないでしょうか？

例えば、D1~AA1に入力された数値がC1以上であれば赤くするといった形で...

・ツリー全体表示


	【82231】Re:文字列を1000以上と判断する理由につ...

きつね - 23/11/17(金) 16:58 -


	引用なし

	パスワード

（補足）

すみません補足です。
0～1000未満の数字が入ったらElse判定になります。
もともとB5にIF関数などが入っていたら真の判定になるのでどういう判断なのか気になっています。

・ツリー全体表示


	【82230】文字列を1000以上と判断する理由について

きつね - 23/11/17(金) 16:50 -


	引用なし

	パスワード

初めて投稿させて頂きます。

If Range("B5") >= 1000 Then

　　Range("B6") = 0

　　Else

　　Range("B6") = 200

End If

というプロシージャを作ったのですが、B5のセルに例えば「田中」と入れると真としてとらえられB6に「0」と入ってしまいます。日本語に限らずB5に何か入れると「1000以上」と判断されるのはなぜでしょうか？
よろしくお願い致します。

・ツリー全体表示


	【82229】Re:VLOOKUPで文字色もコピーする方法

まき - 23/11/8(水) 20:53 -


	引用なし

	パスワード

遅くなりました。
最初のやり方ですることにしました。
毎回、丁寧に迅速な回答ありがとうございました。

・ツリー全体表示


	【82228】Re:時間帯別にプロシージャを実行したい...

鈴木厚志 - 23/11/6(月) 15:26 -


	引用なし

	パスワード

▼マナさん：
>▼鈴木厚志さん：
>
> currentTime = Time
>>
>これでした

解決しました。ありがとうございます。

・ツリー全体表示


	【82227】Re:時間帯別にプロシージャを実行したい...

マナ - 23/11/6(月) 14:55 -


	引用なし

	パスワード

▼鈴木厚志さん：

currentTime = Time
>
これでした

・ツリー全体表示


	【82226】Re:時間帯別にプロシージャを実行したい...

マナ - 23/11/6(月) 11:23 -


	引用なし

	パスワード

▼鈴木厚志さん：

currentTime = TimeValue(Now)

これで試してみてください

・ツリー全体表示


	【82225】時間帯別にプロシージャを実行したいので...

鈴木厚志 - 23/11/6(月) 9:08 -


	引用なし

	パスワード

８：００から１５：００にtest1()を実行し１５：００から８：００までtest2()を実行したいのでコーディングしてみたのですがうまくいきません。どう修正すればよいでしょうか？

Sub MainProcedure()
　　Dim currentTime As Date
　　currentTime = Now
　　Dim startTime As Date
　　Dim endTime As Date

　　startTime = TimeValue("08:00:00")
　　endTime = TimeValue("15:00:00")
　　
　　If currentTime >= startTime And currentTime <= endTime Then
　　　　Call test1
　　Else
　　　　Call test2
　　End If
End Sub

Sub test1()
　　' 08:00から15:00の間に実行したい処理を記述
　　MsgBox "test1 プロシージャが実行されました。"
End Sub

Sub test2()
　　' 15:00から08:00の間に実行したい処理を記述
　　MsgBox "test2 プロシージャが実行されました。"
End Sub

・ツリー全体表示


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

3 / 3831 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free