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

Offics Professional Plus2010を使用しています。あるサイトで「ユーザーフォームにワークシートを表示させる。」を見て説明通り行いましたが、「Microsoft Office Spreadsheet」がなく、説明通りOfficsのCDを入れ、「機能の追加/削除」を選択、Excel項目の+を外しましたが中に見当たりません。あるのは「NET プログラミンサポート」と、「アドイン」と、「サンプルファイル」です。何を選択したら良いのでしょうか?教えてください。

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

A 回答 (3件)

http://oshiete.goo.ne.jp/qa/6402282.html?order=asc

2007用に別途ダウンロードできますが
『2007 Microsoft Office system 用 Microsoft Office 2003 Web Components Service Pack 1 (SP1)』
http://www.microsoft.com/downloads/details.aspx? …

これが2010単独環境でも動作するかどうかというのは..さて、どうでしょうか。
http://support.microsoft.com/kb/972129/ja
http://support.microsoft.com/kb/828949/ja

winXPsp3/xl2000,2003,2007,2010 の混在環境で動く事は確認してますが
普段から使いこなしてるわけではないので検証不足は否めません。
他者への配布が関係なく、個人的に使うだけならしばらく試してみると良いかもしれませんね。


#使用時、ActiveXの初期化..等々に関する疑問が発生したら以下を参考に。
http://oshiete.goo.ne.jp/qa/6669982.html
    • good
    • 1
この回答へのお礼

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

お礼日時:2011/08/21 13:51

こんにちは。



「Microsoft Office Spreadsheet」を使用するには「Office xxx Web Components」をインストールしなければいけません。
しかし、2007では「Office xxx Web Components」が無くなりました。
よって「Microsoft Office Spreadsheet」が使えなくなりました。

2010でも同じなのでしょう。

この回答への補足

回答ありがとうございました。他の方法はありませんか?

補足日時:2011/08/17 20:09
    • good
    • 0
この回答へのお礼

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

お礼日時:2011/08/21 13:51

>説明通り行いましたが、「Microsoft Office Spreadsheet」がなく、



開発タブのVisual BasicからVBEを起動し、「挿入」「ユーザーフォーム」を挿入し、表示されるツールボックスのコントロール上で右クリックし「その他のコントロール」を選択しても「Microsoft Office Spreadsheet12.0」が一覧の中にないということでしょうか?

この回答への補足

Microsoft Office Spreadsheet12.0ではなく、Microsoft Office12.0 EawfCtrlがあり、ツールボックスに表示させると「不明」と表示されます。

補足日時:2011/08/17 20:07
    • good
    • 2
この回答へのお礼

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

お礼日時:2011/08/21 13:51

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

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

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

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

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

Qユーザーフォームを表示中にシートの操作をさせるには

ユーザーフォームを表示中にシートの操作をさせる事はできるのでしょうか。
セルへの入力、画面のスクロールなどは、ユーザーフォームからマクロを実行させたり、.hideでユーザーフォームを一時的に隠すなどすればいいのでしょうが、そういう手段をとらないでユーザーフォームを表示中にシートの操作をさせる事はできるのでしょうか。

Aベストアンサー

ユーザフォームの
ShowModalプロパティを
falseにすればよいかと。

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

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

Aベストアンサー

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

QEXCEL VBA リストビューの項目編集

質問させさせていただきます。
EXCEL VBAで、フォーム上にEcxelシートのような表形式のコントロールを貼り付けて、編集したいと考えています。
調べたら、見た目はリストビューが良かったのですが、2列目以降が選択できないとの事なので、
他にグリッド系コントロール(無料)で良いものがあったら教えていただきたいと思います。
また、リストビューを使った場合でも、何か案があれば助言いただきたいと思います。
リストビューに期待しただけに、ショックは大きいです・・・

Aベストアンサー

>..それと余談なのですが、スプレッドに限らず2003で作ったマクロは、
>問題なく2007で動くのでしょうか?

下位バージョン互換を考慮されている機能は動きます。
ですがやはりCommandbar関連など、仕様が大きく変わった部分や
FileSearchオブジェクトなどのように、消えた機能を使ってると動きません。
http://www.asahi-net.or.jp/~ef2o-inue/kankyo/sub02_04_04.html
http://office.microsoft.com/ja-jp/excel-help/HA010198895.aspx
http://technet.microsoft.com/ja-jp/library/cc179188%28office.12%29.aspx
http://msdn.microsoft.com/en-us/library/bb242669%28office.12%29.aspx

QExcel VBA 2003 ユーザフォームで表を表示したい

ExcelでUser FORMをつくっています。DBにSQLを投げて結果をSheet上に
表示するのではなくForm上に表示したいのですが、標準では表の
オブジェクトがありません。
外部モジュールでいいのはありませんか?
できればソフトウェアをインストールしたり
OS標準のDLLを参照しなくてもよいものがいいです。

Aベストアンサー

Microsoft Office Spreadsheetが使えませんか
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_100.html

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

Qエクセルで貼り付けたオブジェクトの画像をユーザーフォームのイメージコントロールで表示する方法

エクセルで画像をオブジェクトで作り、ユーザーフォームに作ったイメージコントロールに表示する方法はないでしょうか?
条件によってイメージの画像が切り替わるようにしたいのですが。
別の画像ファイルから読み出すことはあまりしたくありません。あくまでエクセルの中にある画像からフォームのイメージに表示したいのですが。何かいい方法があれば教えてください。

回答よろしくお願いします。

Aベストアンサー

(#2コメントへのレスです)
とりあえず
http://www.google.co.jp/search?q=win32api%E3%81%A8%E3%81%AF%3F&lr=lang_ja
http://wisdom.sakura.ne.jp/system/winapi/win32/win1.html
VB系から扱うなら
http://www.winapi-database.com/Beginner/page1.html
ですが、中途半端に手を出すと少々やっかいかも。当り前の事ですが、自己責任でお願いします。

それより
>本当はワークシート上で画像を表計算のデータと同じようにデータとして扱って作りたかったのです
なら
http://www.officetanaka.net/excel/function/tips/tips14.htm
http://www.geocities.jp/chiquilin_site/data/050530_search.html
...のあたりが参考になるかもしれませんね。

Qエクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?

エクセルのVBAでユーザーフォームの中に
テキストボックスとラベルがあります。

ラベルの縦幅とテキストボックスの縦幅は
同じです。(文字1行分くらい)

そのテキストボックスの左隣にラベルを置いて、
項目名的なものを表示させたいと思うのですが
ラベルの値が上に寄っているので、垂直方向に
中央揃えさせたいのですが、設定の仕方が
分からず困っています。

ちなみにエクセルはXPで、VBAは詳しくありません。
詳しくないけど調べながらちょっとずついろいろ
作業しています。

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

Aベストアンサー

文字の上下中央設定は、確かにできませんね。
代案ですが、次のような操作はいかがでしょうか。

1.双方を選択した状態でプロパティを表示し、AutuSize の値を True にする。
2.前回のようにコントロールの位置を上下中央で揃える。
3.各コントロールの長さ(幅)や文字サイズを調整する。

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エクセル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

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(?)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか?
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします!

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む


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

人気Q&Aランキング