★゜・。。・゜゜・。。・゜☆ 2010年03月19日 ☆゜・。。・゜゜・。。・゜★
【VB】備忘録 3/18
この記事は 1 年 10 ヶ月 26 日 前に投稿されたものです。間違いに気づいたらその都度修正していますが、今読んだらおかしな点もあるかもしれません。ご了承ください。分からない人には分からないことを書いてすみません（＾＿＾；
自分のための備忘録。
★ワークシートの追加削除
・１枚目の右にシートを２枚追加する場合。
Worksheets.Add After:=worksheets(1), Count:=2・一番右にシートを追加する場合。
～After:=Worksheets(Sheets.Count)・シート削除確認のメッセージを表示せずにシートを削除する場合。
Application.DisplayAlerts=False ←メッセージを表示させない
Worksheets("Sheet6").Delete
Application.DisplayAlerts=True ← DisplayAlerts の値を True に★指定したセルの行番号と列番号を取得する
現在選択中のセルの行番号 = ActiveCell.Row
現在選択中のセルの列番号 = ActiveCell.Column
★セル範囲の指定方法
・Range("A2:C5") ←→ Range(Cells(2,1),Cells(5,3))
・Range("A2:C5,B12:D15") ←→ Union(Range(Cells(2,1),Cells(5,3)),Range(Cells(12,2),Cells(15,4)))
★VBAでユーザーにファイル保存場所（フォルダ）を指定させる方法
★作業用ブックを開く
まず押さえておきたいポイントは「ブックを開くと、開いたブックがアクティブになる」ということです。ユーザーに内緒でブックを開きたいのに、そのブックが見えてしまってはいけません。そこで、開いたブックが見えないように画面の表示を止めます。内緒のブックを開いたら元のブックをアクティブにしてから画面を更新します。Sub Sample16()
Application.ScreenUpdating = False
Workbooks.Open "D:\Book2.xls"
Workbooks(1).Activate
Application.ScreenUpdating = True
End Sub画面の更新を抑止するのは ScreenUpdating プロパティです。このプロパティもプロシージャが終了すると自動的に True がセットされるのですが、予期せぬトラブルを避けるためにも明示的に True を設定した方がいいでしょう。★ワークブックを閉じる
・自分自身を閉じる
ThisWorkbook.Close・上書き保存して閉じる
ThisWorkbook.Close SaveChanges:=True・"abc.xls" を閉じる
Workbooks("abc.xls").close・名前をつけて保存して閉じる
ActiveWorkbook.Close SaveChanges:=True, Filename:="ファイルのパスとファイル名"★ワークブックのパスを取得
ワークブックがどのフォルダに保存されているかを知る方法です。???.Pathプロパティで知ることができます。なお、このプロパティで取得できるパスはフルパスです。
ちなみに???の部分は、どちらもお馴染みのActiveWorkbookやWorkbooks(n)やThisWorkbookなどのワークブックを表すオブジェクトです。詳しくは、2.1 直接指定する方法や2.2 間接的に指定する方法をどうぞ。
★データの型変換
VBAの世界では、VBA自身がこの「型変換」をある程度自動でやってくれますが、本来はデータ型の違う変数間で値の転記を行なう場合は、「データ型変換関数」を明示する必要があります。
「データ型変換関数」には以下のものがあります。
CBool ブール型(Boolean)へのデータ変換 CByte バイト型(Byte)へのデータ変換 CCur 通貨型(Currency)へのデータ変換 CDate 日付型(Date)へのデータ変換 CDbl 倍精度浮動小数点実数型(Double)へのデータ変換 CInt 整数型(Integer)へのデータ変換 CLng 長整数型(Long)へのデータ変換 CSng 単精度浮動小数点実数型(Single)へのデータ変換 CVar バリアント型(Variant)へのデータ変換 CStr 文字列型(String)へのデータ変換
★ユーザーフォームを任意の位置に表示する
Sub ユーザーフォームを任意の位置に表示する()
With UserForm1
.StartUpPosition = 0 ‘初期表示位置を表す値を指定しない
.Top = 100 ‘上端からの距離を設定する
.Left = 300 ‘左端 〃
.Show ‘表示する
End With
End Sub
★ブックを開いたときに、自動でユーザーフォームが開かれるようにするには？
1．標準モジュールに「Auto_Open()」を書くSub Auto_Open()
UserForm1.Show
End Sub
ブックを開いたと同時に、ユーザーフォーム（UserForm1）が開きました。
2．ThisWorkbook モジュールに「Workbook_Open()」を書くPrivate Sub Workbook_Open()
UserForm1.Show
End Sub
ブックを開いたと同時に、ユーザーフォーム（UserForm1）が開きました。
関連記事かも？
こちらの方が、より関連しているかも？
- 梅田望夫 / ウェブ時代５つの定理 この言葉が未来を切り開く！ 梅田望夫 ウェブ時代５つの定理 この言葉が未来を切り開く! 非常に感動しました。梅田望夫さんの本は、『ウェブ進化論』、『ウェブ時代をゆく』も読んだことがありますが、いずれも前向きで積極的な内容で、読後感が非常に気持ち良いです。 本書を読み終えると、２倍３倍の成長ではなく、１００倍、１０００倍の進化を目指したくなるような、向上心、やる気に満ちあふれる感覚になります。 「無難で、間違いのない生き方」も素晴らしいですが、それよりも、「いまだかつて誰もなし得なかったことを果敢に取り組む」姿勢というのが大好きです。失敗し、つまづき、叩かれても、何度もはい上がって挑戦する人には魅力を感じます。 そんな、守りの生活よりも、多少リスキーでも攻めの人生を送りたい、と思っている人にはおすすめの一冊と言えると思います。 本書で幾度となく出てくるのが「アントレプレナーシップ（entrepreneurship）」という単語ですが、本文では、日本語にはこの語の持つ意味合いをぴったりと言い当てた訳語がありません。「起業家精神」あるいは「企業家精神」と訳されて使い分けられていますが、アントレプレナーシップは、なにも起業家や会社経営だけに関わるメンタリティとは限りません。 新しい物事に対して創造意欲に燃え、リスクを引き受けて果敢に挑む姿勢、不確実な未来を楽しむ精神の持ちようなどを言い表すもので、「進取の気性に富む」というと一番ニュアンスが近いかもしれませんと説明されています。...
- オバマ米新大統領：就任式＆演説 / President Barack Obama 2009 Inauguration and Address 必殺コピペの巻！（笑） 「オバマ米新大統領：就任演説 「責任果たす新時代」 対決より共生を – 毎日ｊｐ(毎日新聞)」より■就任演説のポイント■ ・困難な選択を避け、次世代の準備に失敗してきた ・過去に固執し、狭い利益しか守らない時代は終わった ・恐れより希望、争いのかわりに団結を ・不朽の精神を再確認 ・アメリカ再建の仕事に取りかかる ・政府の大小ではなく、機能しているかが問題...
- とどろき ～ 平成１９年６月 とどろき 平成１９年６月号 この『とどろき』という冊子は、仏教の教えを解説されたものですが、若者の読者も多いようです。 今月号の「いきいき読者」というコーナーには、自分と同世代らしい方が紹介されていたので、親近感がわきました。「真実の幸福になるために大切な健康を守る“食”」と題し、サプリメントやオリーブ油などの輸入販売をしている方のインタビューです（たぶんこの会社？同姓同名の可能性ありますが）。興味深かったのは、「仏法とのご縁はいつごろ？」の問いに対し、こう答えておられるところです。「１０年ほど前です。当時、バンドでドラムを叩いていましたが、仲間との関係に疲れていました。飲み会で必ず、そこにいない友達の陰口が始まるんです。『何やってるんだろう？』って思いました。そんな時、仏教聞かないかと誘ってくれた人が、すごく温かく自分を受入れてくれたんです。とてもうれしくて、“仏教を聞いている人はどこか違うな”とおもいました」 ほお、この方はバンド経験者か、しかも東京・神田付近での取材とは、もしかしてすれ違っているかも、なんて思ってしまいました。「添加物のうまみは、味覚を破壊します。本当においしいものって、滋養に富んだものなんですよ」との言葉に反省させられました。「身体は食べ物によって作られる」と言われます。ちょっと、自分の食生活を改善しようかな、と思わずにおれない記事でした。 さて、「孤独のメッセージ」という巻頭では、色々な例を挙げて、人間は本質的に孤独であることが論じられています。中でも、曲の歌詞を題材にしているところが心に残りました。もしかして編集者は音楽好きなのかと思ってしまいました。たとえば、こんな感じです。 男は難破して一人、無人島にたどり着いた。耐え難い孤独から、ビンにＳＯＳを詰めて海へ流す。返事はしかし、１年たっても届かない。こうなることは、うすうす分かっていたが、彼は落胆を隠せなかった。 ところがある朝、信じられない光景が男の前に広がっていた。手紙が詰まったおびただしい数のビンが海岸に押し寄せ、打ち上げられていたのだ。彼は悟った。 “孤独なのはおれだけではなかったんだ” 今年、２０年ぶりに再結成したイギリスのロックバンド、ポリスが、『孤独のメッセージ』（『Message In A...
- ＳＥコレクション（２） / Telephone, please. クイズです。（其の壱） Dr. David, telephone please. Dr. David, telephone…（其の弐） Dr. Davis,...
- DREAM THEATER の来日は、、、 ・・・・・・・・・いったい、いつになるんでしょう？ ┐(´～｀）┌MP's forecast for 2010 - Portnoy MikeさんのMySpaceブログまたは、MP's forecast for...
コメントはまだありません。