Excel VBA質問箱 IV

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

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


16438 / 76732 ←次へ | 前へ→

【65761】Re:ユーザー定義型は定義されていません
発言  neptune  - 10/6/25(金) 15:10 -

引用なし
パスワード
   ▼REV さん:
>Microsoft DAO 3.6 Object Library
>以上が設定してある状態で
・・・省略・・・
>このプロシージャを実行し中断状態で
>適当なセルに1111を入力してコメントは出ませんでした。
>
>ですが・・・エラーの原因が気になってしまい
>(Refが問題だろうと思いながらw)
>DAO + ADO で試しコメントなし
>ADO + Ref でコメント発生
>DAO + Ref でコメント発生
>ADO のみ でコメント発生・・・あれ?
>DAO のみ でコメント発生;;
refeditを使った後で不具合発生してますねぇ。。。

正直私にも原因は良く分かりませんが、勘だけで言うとrefeditを使用する
事によって、book自体に何か悪さをしているのかなぁ???
くらいしか思いつきません。

最近、丸投げ質問が目に付きますが(私はスルーしてますけど)、
REV さんのようにキチンと検証して報告してくれるとこちらも勉強になります。

これぞgive and take で本来掲示板のあるべき姿と思ってしまい、
なんかありがたいです。

気持ちが良いので、お礼です。
textboxを使う際の原型です。機能は作りこまなければなりませんが、
あまり見る事はないと思いますので、参考になりましたらどうぞ。

#ササッと書いたので殆ど検証してません。原型という事で^ ^;
#何故かしらuserform2のサイズ変更はtextboxの前にやっておかなければ
#textboxの表示がおかしくなりました。
Win7 XL2007 で作成
何故かしらDropButtonStyle やShowDropButtonWhen はVBEのインテリジェンス
に表示されなかった。?Helpはあるが・・・?

コントロール等の作成:
userformを2こ新規作成、それぞれにtextboxを1個ずつ配置する。
オブジェクト名はデフォルト。

操作:
userform1を表示させ、textboxのボタンをクリック。

'///////////////////////Userform1///////////////////////
Option Explicit

Private Sub TextBox1_DropButtonClick()
  UserForm2.Show vbModal
End Sub

Private Sub UserForm_Initialize()
  With Me.TextBox1
    .SpecialEffect = fmSpecialEffectFlat
    .DropButtonStyle = fmDropButtonStyleReduce
    .ShowDropButtonWhen = fmShowDropButtonWhenAlways
  End With
End Sub

'//////////////////////////////UserForm2/////////////////////////
Option Explicit

Private Sub TextBox1_DropButtonClick()
  MsgBox "ボタンが押されました。"
End Sub

Private Sub UserForm_Initialize()
  With Me
    .Height = .Height - .InsideHeight + TextBox1.Height
  End With
  With Me.TextBox1
    .Left = Me.Left
    .Width = Me.InsideWidth
    .Top = 0
    .SpecialEffect = fmSpecialEffectFlat
    .DropButtonStyle = fmDropButtonStyleEllipsis
    .ShowDropButtonWhen = fmShowDropButtonWhenAlways
  End With
End Sub

0 hits

【65748】ユーザー定義型は定義されていません REV 10/6/25(金) 0:52 質問
【65752】Re:ユーザー定義型は定義されていません かみちゃん 10/6/25(金) 8:37 発言
【65755】Re:ユーザー定義型は定義されていません REV 10/6/25(金) 9:37 発言
【65753】Re:ユーザー定義型は定義されていません neptune 10/6/25(金) 9:15 発言
【65756】Re:ユーザー定義型は定義されていません REV 10/6/25(金) 9:44 発言
【65758】Re:ユーザー定義型は定義されていません REV 10/6/25(金) 11:45 発言
【65759】Re:ユーザー定義型は定義されていません 247b 10/6/25(金) 13:53 発言
【65773】Re:ユーザー定義型は定義されていません REV 10/6/27(日) 2:41 お礼
【65761】Re:ユーザー定義型は定義されていません neptune 10/6/25(金) 15:10 発言
【65775】Re:ユーザー定義型は定義されていません REV 10/6/27(日) 3:39 お礼

16438 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free