Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
9 件の検索結果
一致するキーワードは見つかりませんでした。
全般
質問者が納得■補足への回答
その箇所に問題があろうことは、分かっています。
ですが、他のListBoxのコードと同じように記述していて、一部のListBoxだけ機能しないということは、コードの記述に問題があるわけではありません。
機能していない箇所はそこであっても、その要因は別の部分にあるのです。
他のコードが干渉しているのか、そもそもイベント発生の信号を受取れていないかだと思います。
ただ、先にも申し上げた通り、せめてブレークポイントを設定して、イベントが発生しているのかを確認する必要があります。
例えば、お腹が...
4481日前view70
全般
質問者が納得状況説明も殆ど無くコードをドンと載せるのは、コードを解析してやりたい事を推測して答えろという意味ですか？
画像も的を得ていない部分を載せていたり、小さすぎて見えなかったりであまり意味が無い場合が多いし、コードだって一部だけ載せても、他のイベントコードがどうなっているかわからないため、他のコードと干渉し合う事も考えられます。
私は専属の下請けじゃありません。
業務ソフトを構築したいなら、それなりのところに頼んでください。
既に掲示板でのやりとりで解決出来る範囲では無いと思います。
---
今後、リクエ...
4495日前view61
全般
質問者が納得90人以上が見ても回答が無いのは、回答者に答えるスキルが不足しているのでは無く、ご質問の文章や表現などに問題があると考えた事はありませんか？
「まったく状況や内容を知らない人が読む」という観点で質問を読み返してみて下さい。果たして何人の人が望んでいる事を理解出来るでしょうか？
見ていない人に文章で伝えるのはかなり大変なことですし、特に文字数制限がある掲示板では尚更です。込み入った内容の質問であればあるほど伝えるのは容易ではありません。書いてもらったコードをコピペで載せるのではなく、読む人の環境で再現させ...
4528日前view72
全般
質問者が納得何度かご質問にお答えした記憶はありますが、内容はまったく覚えてません。
質問歴を拝見すると同じようなソートの質問を何度かされているよう見受けられますが、コピペで動かないとまったく応用できないという事でしょうか？
ロジック的にどうかなという気持ちもありますが、サンプルコードを UserForm_Initialize の End Select と End With の間に追加したら、とりあえず画像のようになりました。
'---省略---
End Select
'----サンプル ここから---
i = 0...
4528日前view71
全般
質問者が納得補足
そこまで、できてるのでしたら、あとは、goldswallow_stageさんの示したコードを多次元配列に応用するだけでソートできるかと思います。
Variant型の変数（今回は「範囲」という名前にしました）に対して、セル範囲をセットすると、（↓この行です）
範囲 = ws.Range("A4:D" & ws.Range("B" & Rows.Count).End(xlUp).Row)
範囲＝セルA4:Dα範囲（αは入力済みのセル数）となるわけ...
4529日前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...
4530日前view36
全般
質問者が納得転記ミスがあるようですが置いといて
多分、実行時に
Activesheet <> Sheets("前期")
の状態ではないでしょうか？
Sheets("前期").Select
として
Activesheet = Sheets("前期")
の状態にすれば通ると思います。
あるいはSelectせずに
With Sheets("前期").Range("kotoba_1")
Select Case...
4566日前view118
全般
質問者が納得ここに変換プラグがありますのでこの中から選ぶといいです
http://www.amazon.co.jp/s/?ie=UTF8&keywords=dsub+hdmi+%E5%A4%89%E6%8F%9B&tag=googhydr-22&index=aps&jp-ad-ap=0&hvadid=11165604541&hvpos=1t1&hvexid=&hvnetw=g&hvrand=399821711287768965&hvpone...
4580日前view37
全般
質問者が納得名前に"Line"を含むものを削除するのが手っ取り早いかと思います。
Sub 線を消す()
Dim mySP As Shape
For Each mySP In ActiveSheet.Shapes
If InStr(mySP.Name, "Line") > 0 Then mySP.Delete
Next
End Sub
どうでしょう？
5633日前view60
- 1
