痔になりやすい生活習慣とは?

DTPicker が表示できないパソコンがあるんですが、表示できる
パソコンとの違いがわかりません。どのようにすれば表示できる
ようになるか教えて下さい。参照設定が問題なんですかね。
お願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm
をまず読んで置いてください。
    • good
    • 0

VB のランタイムをインストールしてみてください。


http://www.vector.co.jp/soft/win95/util/se188840 …
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルのセルにカレンダーを表示させ、日付をセルに入力させたい

エクセルについて教えて下さい。

エクセルのセルをクリックすると、
カレンダーのようなものが表示され、
マウスで選択すると、
セルに日付が入力されるようにするには
どうしたらよいですか?

すみませんが、宜しくお願い致します。

Aベストアンサー

#02です。foo-mさんがVBAをお使いになるなら、以下のサンプルをいじってみてください。

このサンプルはC4セルがクリックされたときにカレンダーコントロールを表示して、日付を選んだらその日付をC4に書き込み、カレンダーコントロールを閉じるマクロです。

Private Sub Calendar1_Click()
Selection.Value = Calendar1.Value
ActiveSheet.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$4" Then
ActiveSheet.Calendar1.Visible = True
End If
End Sub

マクロはシートのモジュールとしてペーストして下さいね

QVBAのカレンダーコントロールについて・・・

Excel 2010を使用しています。
以前は、2007を使っていたんですが・・・2010になったら
カレンダーコントロールの『DTPicker』と『MonthView』が
使えなくなっていました。

以前はちょっとした日付の選択の時に使って重宝していましたが・・・
使えなくなったのが、とても残念です。

どうにかして使える様になれればと思うのですが・・・
私には、新たにカレンダーコントロールを作る知識もなく
どうしたら良いか困っています。

そこで、VBAの初心者にでも扱える様なカレンダーコントロール作成方法などが
ありましたら教えて頂けますでしょうか?

新たに作るといった場合は、どの様に作ったら良いか
教えて下さい。

お手数ですが、本当に宜しくお願いしまます。

Aベストアンサー

Accessの場合は、日付選択カレンダーがついてきてますので、まあいいかな?
ですがExcelには何も用意されていないのですね。
今頃気が付きました。
で、excel2010 日付選択カレンダー にてGoogleと

http://excel-2010.seesaa.net/article/154360048.html
ソースコードも公開されています。有り難い限りです。
や角田氏の
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm
でもご本人のものや他の方のアドインを紹介されていますよ。

Qmscomct2.ocxをパソコンに導入するには?

ACCESS2003 mscomct2.ocxを新しいパソコンに導入するには?

windows7 home premium 32bit
Access2003

パソコンを買い換えたため、以前使用していたACCESS2003で作ったmdbファイルを移動しました。
開こうとしましたがエラーが出て開かず(エラーの内容は忘れましたが、何かが足りないといった事だったと思います)、日付の入力にDTPickerを使用していたことに気付いてmscomct2.ocxをwindows\system32フォルダに入れました。
無事、起動は出来たのですが、フォームを開こうとすると「このコントロールにはオブジェクトがありません」というメッセージが現れて、配置したDTPickerが消えています。

フォームの ツール-ActiveXコントロール の利用可能なコントロールの中には入っておらず(当然^^;)、登録から mscomct2.ocx を選択すると「追加することはできませんでした。別のセットアッププログラムを使って追加してください。」と出ます。
そこで、Visual Basic の ツール-参照設定 を見てみますと 参照可能なライブラリファイルの中に Microsoft Windows Common Control-2 6.0(SP4) にチェックが入っています。
試しにと、一度チェックをはずしてACCESSを再起動してみると Microsoft Windows Common Control-2 6.0(SP4) が消えていてチェックを入れることも出来なくなりました。(でも、起動はします。)

mscomct2.ocxを使えるようにするにはどのようにしたら良いのでしょうか?
以前、パソコンがクラッシュして再インストールしたときは mscomct2.ocx をsystem32に放り込んだだけで問題なかったような気がしたのですが・・・。7は少し違うのでしょうか?
もし同様の経験のある方がいらっしゃいましたら是非ともご教示下さい。

ACCESS2003 mscomct2.ocxを新しいパソコンに導入するには?

windows7 home premium 32bit
Access2003

パソコンを買い換えたため、以前使用していたACCESS2003で作ったmdbファイルを移動しました。
開こうとしましたがエラーが出て開かず(エラーの内容は忘れましたが、何かが足りないといった事だったと思います)、日付の入力にDTPickerを使用していたことに気付いてmscomct2.ocxをwindows\system32フォルダに入れました。
無事、起動は出来たのですが、フォームを開こうとすると「このコントロールにはオブジ...続きを読む

Aベストアンサー

通常、Office 2003をインストールするときに、VB6 RuntimeのCommon Controlもインストールされるはずですが、それが出来ていない場合は、
Visual Basic 6.0 Service Pack 6:ランタイム再頒布可能パッケージ

をMicrosoft サポート(Vector でも可)で探して、ダウンロードして再インストールします。
すでにあるものに、手動で行うなら、コマンドプロンプトから、regsvr32.exe で、ActiveX を、サーバー登録すればよいのですが、管理者権限でないと、セキュリティに弾かれるかもしれません。

http://support.microsoft.com/kb/957924/ja
Visual Basic 6.0 Service Pack 6 ランタイム拡張ファイル用の累積的な更新プログラムのロールアップについて

ここを読んでみると、Vista以降は、アップデートしなくてはいけないようです。

同サイトの内容の一部
$この累積的な更新プログラムのロールアップは本当に必要ですか。
$はい。この累積的な更新プログラムのロールアップには、既に説明したセキュリティ
$修正プログラムと、Visual Basic 6.0 ランタイム拡張ファイルに収められている
$ActiveX コントロールに関する他の複数の安定性...

通常、Office 2003をインストールするときに、VB6 RuntimeのCommon Controlもインストールされるはずですが、それが出来ていない場合は、
Visual Basic 6.0 Service Pack 6:ランタイム再頒布可能パッケージ

をMicrosoft サポート(Vector でも可)で探して、ダウンロードして再インストールします。
すでにあるものに、手動で行うなら、コマンドプロンプトから、regsvr32.exe で、ActiveX を、サーバー登録すればよいのですが、管理者権限でないと、セキュリティに弾かれるかもしれません。

http://support.micro...続きを読む

Q【Excelマクロ】カレンダーでの日付指定機能が使えるフォーム

Excelのマクロで、Windowsの「日付と時刻の設定」みたいな、
カレンダーで日付の指定ができるようなフォームを作りたいのですが
参照設定で出てくるカレンダーコントロールはAccessが入ってないとダメらしく
また、カレンダー機能のために、該当するOCX(MSCAL.OCX)を添付して
Excelブックを提供するのはライセンス上問題があるそうです。
ExcelVBAで簡単にカレンダー機能を実現する方法はありますでしょうか?
(市販のコントロール買うとかはなるべくナシで^^;)
提供時にOCXとかDLLとかのファイルがついてるとうざいので
なるべくXLSファイル単体で動かしたいです。

むりやり自作する方法に関する技術情報のご紹介でもありがたいです。
何卒よろしくお願い申し上げます。

Aベストアンサー

この中に書かれている方法のどれかでできそうな?
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm

QMSCOMCTL.OCXのアップデートの方法

Excel VBAを使っていて
ListviewなどのMSCOMCTL.OCXに依存した
コントロールを使っている場合
MSCOMCTL.OCXに上位互換性がないため、
VBAを含むxlsmファイルを作成したPCとは異なるPCで
そのプログラムを使用するためには
使うPCごとにMSCOMCTL.OCXをアップデートする必要があります。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1198163781

詳細はこのページに書かれてあります。

疑問は、いま、自分が使っているMSCOMCTL.OCXのバージョンが2012年のものなのですが
Windows10にアップグレードするなどした場合に
MSCOMCTL.OCXをアップグレードする必要がありますが
VBAは正常に動作するのでしょうか?

MSCOMCTL.OCXには下位互換性があるのでしょうか?

もし動作しないとして、
一つずつListviewを削除して新規作成するという作業を行う必要があるのでしょうか?
自動更新できる方法があれば教えてください。

Excel VBAを使っていて
ListviewなどのMSCOMCTL.OCXに依存した
コントロールを使っている場合
MSCOMCTL.OCXに上位互換性がないため、
VBAを含むxlsmファイルを作成したPCとは異なるPCで
そのプログラムを使用するためには
使うPCごとにMSCOMCTL.OCXをアップデートする必要があります。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1198163781

詳細はこのページに書かれてあります。

疑問は、いま、自分が使っているMSCOMCTL.OCXのバージョンが2012年のものなのですが
Windows10に...続きを読む

Aベストアンサー

>Win10 PCで作成したVBAをWin7 PCにコピーして使用するためには、
>「~7.0(SP6)(仮称)」にチェックを入れる必要があるはずです。
その場合にはWin7PCではMicrosoft ListView Control 6.0(SP4)にチェックを入れなおせば
まず問題ないはずです。
ちなみに当方のWin7 Office2010 のMicrosoft ListView Controlの実体ファイルの
製品バージョンは6.01.9839
Win10 Office2016(プレビュー版)のmscomctl.ocxのバージョンも同一でした。
単純なテストですが、2016 → 2010 では問題なかったです
VBAはよく言えば枯れた状態ですので大々的なアップデートは無いでしょう。
あったとしたらMicrosoft ActiveX Data Object x.x Libraryと同様
Microsoft ListView Control 6.0・・・
Microsoft ListView Control 7.0・・・
のように複数バージョンが並行して登録されるとおもいます。

>オフィスを常にアップデートして最新の状態にしておく必要があるということでしょうか?
大多数の人は更新プログラムを自動的にインストールする設定にしたままだと思います。
最新にというかリビジョンを合わせた方がつまらないトラブルにならないと思います。
ただ、近年のアップデートは地雷が多すぎて何とも言えなくなりました。。。

>Win10 PCで作成したVBAをWin7 PCにコピーして使用するためには、
>「~7.0(SP6)(仮称)」にチェックを入れる必要があるはずです。
その場合にはWin7PCではMicrosoft ListView Control 6.0(SP4)にチェックを入れなおせば
まず問題ないはずです。
ちなみに当方のWin7 Office2010 のMicrosoft ListView Controlの実体ファイルの
製品バージョンは6.01.9839
Win10 Office2016(プレビュー版)のmscomctl.ocxのバージョンも同一でした。
単純なテストですが、2016 → 2010 では問題なかったです
VBAはよく言えば枯れた状...続きを読む

Qエクセル VBA ユーザーフォームを閉じる

ユーザーフォームを開く時は
UserForm1.Showですが
閉じる時は?
UserForm1.Close
だとコンパイルエラーになります。
End
にするしかないですか?

Aベストアンサー

Unload Me とか Unload UserForm1 でユーザーフォームを閉じることができます。

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む

Q「クラスが登録されていません 」

アクセス2007なのですが
vbaでSet cn = CurrentProject.Connectionを通過しようとすると、
「クラスが登録されていません 」と表示されるようになりました。

初心者なのでよくわからないのですが、vbaが機能しないときまるので、どうすればいいでしょうか?
どこかに参照設定すればいいですか?

Aベストアンサー

変数 cn の宣言(Dim cn as ・・・)はどのようにしていますか。
参照設定の違いなら別のエラーメッセージが出そうなものです。
念のため、
Microsoft Activex Data Objects x.x Library にチェックが
入っているのを確認してみてください。
Access2007は持ち合わせていませんが、x.x には
2.8 か 6.0 辺りになっているはずです。

で、
CurrentProject.Connection -2147221164
でGoogleと
http://support.microsoft.com/kb/2459087

何かインストールしてから発生していませんかね。
上記リンク先によれば、修復インストールかレジストリの直接編集が
解決方法のようです。
当方、Windows7 Professional + Office2010 環境では
コントロールパネルから、『プログラムと機能』を選び
Office(Access)を選択
添付図のように、「整理」 「アンインストール」 「変更」 となりました。
変更を選ぶとOfficeのインストーラが立ち上がりますので、『修復』を選択
後はウィザードの指示に従えば良いかと思います。
環境が違えば、
「整理」 「アンインストール」 「変更」←が違う語句になっているかも
また、Office(Access)のDVD・CD を途中で要求されるかもしれません。
以上、ご参考までということで。

変数 cn の宣言(Dim cn as ・・・)はどのようにしていますか。
参照設定の違いなら別のエラーメッセージが出そうなものです。
念のため、
Microsoft Activex Data Objects x.x Library にチェックが
入っているのを確認してみてください。
Access2007は持ち合わせていませんが、x.x には
2.8 か 6.0 辺りになっているはずです。

で、
CurrentProject.Connection -2147221164
でGoogleと
http://support.microsoft.com/kb/2459087

何かインストールしてから発生していませんかね。
上記リンク先によれば、修復...続きを読む

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

QエクセルVBA ユーザーフォームのTextBoxを日付にしたい

いつもいつも 皆様からのお返事を心待ちにしておりますNannyです。

VBAのユーザーフォームでTextBoxを日付専用入力にしたいのです。

で、入力方法が 20050219 というような形で入力して、2005/02/19という形か、平成17年2月19日というような形に持って行って、セルに貼り付けしたいのです。

出来なさそうな予感満載なのですが、皆様お返事の程宜しくお願い致します。
(出来ないのであればあきらめられるので、出来るかどうかのお返事も期待しております。

宜しくお願い致します。

Aベストアンサー

下記はTextBox1に20050219としCommandButton1をクリックするとシート1のA1に2005/2/19と出力します。
Private Sub CommandButton1_Click()
Worksheets(1).Range("A1").Value = Format(TextBox1.Text, "0000""/""00""/""00")

End Sub


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング