だるまです。

最近、更新してないので書きにくいのですが、アクセス数（トップページ）が10万を超えました。
アクセス、ありがとうございます。

だるまです。

去年の6月からUMTP 組込みモデリング部会で活動していました。
5月17日に、その成果が公開されましたので、多くの人に見てもらいたいと思います。

■URL：
http://www.umtp-japan.org/modules/introduction1/index.php?id=47&tmid0=24




それから、この活動でやったことを書いてみました。こちらもお願いします。

http://darumaexcel.uijin.com/about_daruma/umtpL3_embedded.html

だるまです。

アクセス数が9万を突破しました。
アクセスしてくれた人のおかげです。

だるまです。

　@IT内の「PR：UMLを開発に生かせ――2万5000人が受験したモデリング技能認定試験の魅力 」の記事の中に、だるまの声（認定取得者の声）が載ったので、時間がある人に是非とも見て欲しいです。
　よろしくお願いします。

■URL：
http://jibun.atmarkit.co.jp/ad/fyi/88umtp/01.html

■場所：
認定取得者の声の１番目（「宮崎崇さん」）

初心者です。教えていただければ幸いです。
A、Bという２つのブックファイルがあり、ブックBのあるセルの値をAのブックのあるセル内に入力する場合どうすればよろしいでしょうか。記録マクロでコピー＆ペーストしなくてもブックBのセル内データを取得してブックAの指定セル内へ値を代入する形にしたいのですが・・・。
宜しくお願いいたします。

Re:異なるブック間でのデータ授受について

だるま

データNo：188

2010年04月14日(Wed) 22:39

だるまです。
更新はストップしますが、掲示板まではストップしませんので。
さて、「初心者です」って、どれくらい初心者なのかわからないので、答えにくいのですが、とりあえず簡単なサンプルを作成しましたので、参考にしてください。

※つづく

Re:異なるブック間でのデータ授受について

だるま

データNo：189

2010年04月14日(Wed) 22:48

※つづき

■手順
１．エクセルファイルを2つ作成してください
（ファイル名は"Book1.xls"と"Book2.xls"とします）
　2つのファイルの両方に"Sheet1"というシートがあることを確認してください。
２．２つのファイルを開いてください。（既に開いているなら別にいいが）
３．Book1.xlsのSheet1のA1セルに適当な文字列を入力してください。
４．Excelの[ツール]-[マクロ]-[Visual Basic Editor]からVBEを起動してください。
５．どのブック（ファイル）でもいいので標準モジュールを追加してください。
６．↓のソースを貼り付けて、実行してみてください。
Book2.xlsのSheet1のA1にコピーされると思います。


■ソース
==============================================
Option Explicit

'Book1.xlsのSheet1のA1セルの内容を
'Book2.xlsのSheet1のA1セルにコピーします
Sub セルの内容をコピー()

' 宣言
Dim objWorkSheet1 As Worksheet 'book1のSheet1
Dim objWorkSheet2 As Worksheet 'book2のSheet1

Dim objRange1 As Range 'book1のSheet1のA1
Dim objRange2 As Range 'book2のSheet1のA1

'ワークシートオブジェクトを取得
Set objWorkSheet1 = Application.Workbooks.Item("Book1.xls").Sheets.Item("Sheet1")
Set objWorkSheet2 = Application.Workbooks.Item("Book2.xls").Sheets.Item("Sheet1")

'Rangeオブジェクトを取得
Set objRange1 = objWorkSheet1.Range("A1")
Set objRange2 = objWorkSheet2.Range("A1")

'コピー
Call objRange1.Copy(objRange2)
End Sub

Re:異なるブック間でのデータ授受について

だるま

データNo：190

2010年04月14日(Wed) 22:56

※さらにつづき

■注意とか、その他
１．サンプルなのでエラー処理していないです
　　（例えばファイルが開かれていなかったとき）
２．
「Set objRange1 = objWorkSheet1.Range("A1")」
の"A1"を"A1:B1"とかすると、複数セルを一気にコピーできるかも。

３．
「Set objRange1 = objWorkSheet1.Range("A1")」
を
「Set objRange1 = objWorkSheet1.Cells」
にするとSheet1の全てのセルがコピーされる感じがする。

以上です。