Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"日付リスト"4 件の検索結果
"日付リスト" 一致するキーワードは見つかりませんでした。
全般
質問者が納得状況説明も殆ど無くコードをドンと載せるのは、コードを解析してやりたい事を推測して答えろという意味ですか？
画像も的を得ていない部分を載せていたり、小さすぎて見えなかったりであまり意味が無い場合が多いし、コードだって一部だけ載せても、他のイベントコードがどうなっているかわからないため、他のコードと干渉し合う事も考えられます。
私は専属の下請けじゃありません。
業務ソフトを構築したいなら、それなりのところに頼んでください。
既に掲示板でのやりとりで解決出来る範囲では無いと思います。
---
今後、リクエ...
4727日前view61
全般
質問者が納得90人以上が見ても回答が無いのは、回答者に答えるスキルが不足しているのでは無く、ご質問の文章や表現などに問題があると考えた事はありませんか？
「まったく状況や内容を知らない人が読む」という観点で質問を読み返してみて下さい。果たして何人の人が望んでいる事を理解出来るでしょうか？
見ていない人に文章で伝えるのはかなり大変なことですし、特に文字数制限がある掲示板では尚更です。込み入った内容の質問であればあるほど伝えるのは容易ではありません。書いてもらったコードをコピペで載せるのではなく、読む人の環境で再現させ...
4760日前view72
全般
質問者が納得補足
そこまで、できてるのでしたら、あとは、goldswallow_stageさんの示したコードを多次元配列に応用するだけでソートできるかと思います。
Variant型の変数（今回は「範囲」という名前にしました）に対して、セル範囲をセットすると、（↓この行です）
範囲 = ws.Range("A4:D" & ws.Range("B" & Rows.Count).End(xlUp).Row)
範囲＝セルA4:Dα範囲（αは入力済みのセル数）となるわけ...
4761日前view71
全般
質問者が納得失礼しました。B列で判定でしたね＾＾；
こんな感じでどうでしょうか？
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Left = 586
Me.Top = 138
'タイトルを設定
Me.Caption = "印刷フォーム"
Label1.Caption = "日付リスト"
Dim Rng As Range, fRng As Range
Dim lst As Vari...
4762日前view36
- 1
