当サイトご案内




  • クリックで応援っ!!

    人気blogランキング


     

    いらっしゃいませ。

     

    「The徒然★Re-Mix」へようこそ。

     

    徒然草序段

     

     「つれづれなるまゝに、日暮らし、硯にむかひて、心にうつりゆくよしなし事を、そこはかとなく書きつくれば、あやしうこそものぐるほしけれ」

     

     の、ように、このブログでは硯の代わりにパソコンに向かって「心にに移り行く」、「よしなしごと」を「そこはか」となく「書きつく」ってます。

     

     それでは、ごゆっくりと当ブログをご覧下さい。

     

     管理者:きかてぃけい

     

    応援よろしくです

    人気blogランキング


無料ブログはココログ

アクセスアップとか

« Thunderbird使いまくり検討(5)メール作成時、初期(デフォルト)で設定される差出人アカウント(アドレス)を変更してみる | トップページ | Excel/VBA備忘録(6)自動リンクのメッセージを表示しない »

2008年1月27日 (日)

Excel/VBA備忘録(5)シートがあるかチェックし、なければ追加する

アドゲー天国エディタ(edita.jp)
ブログにビール注ぎゲーム「生一丁プレミアム!」を貼ろうキャンペーンはこちら

↑注)JavaScriptをONしないと表示されません。

 たまにエクセル(Micorosoft Excel)で関数とかマクロ(VBA)を使うこともあるんですが、昔使ったことがある手法があったとしますよね。

 んで、その時すでにその手法を忘れてて、「どうだったかなぁ~?」とか言いながら、結局Webを探し回ると凄く時間と労力がかかるんで、とりあえず、自分用に、忘れたときのメモとして、Excelの関数やVBAの手法を書こうと思います。

 ちなみに、本文章についてご質問を承っても十分な回答を差し上げる自信は全くありません。

 疑問などがございましたら、本文末尾に参考にさせてもらったサイトのリンクを貼っておきますので、そちらを参照ください。

 では、本題に移ります。

 まず、エクセルのブック(xlsファイル)がネットワーク上にある場合、複数のユーザ(PC)から同じブックを開いたとき、後から開いたユーザが「読み取り専用」か「通知」で開くことになり、リアルタイムに編集できない、ってのが何とかならないかなぁ、って思っているんですね。

 で、これの解決方法を、なんとなく考えると、ユーザごとに編集用のブックを持っていて、あるブックが複数の「ユーザごとの編集用のブック」から必要なシートを引っ張ってきて、まとめることができるブックがあれば良いんじゃないかと思ったんです(シートを「まとめるブック」は閲覧するだけで良ければの話ですが・・・)。

 じゃぁ、これを具体的に出来るようにするにはどーすれば良いか、というと、「ユーザごとの編集用のブック」からシートをコピーして、「まとめるブック」に貼り付ければ良いんじゃないか、って思ったんです。

 ところが、ここで想定される問題が、「まとめるブック」に「ユーザごとの編集用のブック」からコピーしてくるシートと同じ名前がある場合、コピーしてきたシートは名前を変えて「まとめるブック」に貼り付けられる、ということ。

 これだと何か気に入らないので、「ユーザごとの編集用のブック」からシートをコピーしてくる場合、事前に「まとめるブック」上に同じ名前のシートが無いかを確認し、それを発見したら削除して、それからコピー&ペーストすれば良いのではないか、ということを思いついたんです。

 で、そんな方法がどっかに書いてないかなぁ、なんて思ってWeb上をさまよっていると、シート操作ってサイトに少し改造すれば使えそうなものがあったんで紹介しましょう。

 これは、指定されたシートがあるかチェックし、無ければ追加するってモノなんですけど、何故これを紹介するのか、と言うと、「シートを探す」っていうのが、まず一つ、そして「無ければ追加」するって所のコードを「あれば削除」するっていうコードに変更すれば、目的が達成されそうな気がするからです(まぁ、考察の一つとお考え下さい)。

 それではいよいよ紹介します。

 まず、ExcelのVBE(Visual Basic Editor)を起動して標準モジュールに下記コードをコピー&ペーストします。


  Sub Sheet_Add5()
   Scheck = 0
      For Each sheet_name In Worksheets
     If sheet_name.Name = ("検索シート名") Then
      Scheck = 1
    Exit For
     End If
  Next
    If Scheck = 0 Then
     Sheets.Add.Name = "検索シート名"
    End If
  End Sub


  (上記、シート操作より引用)

 これで終わりです。

 このマクロを動作させるには、Excelの「ツール(T)」→「マクロ(M)」→「マクロ(M)」で「Sheet_Add5」を選択し「実行(R)」をクリックします。

 結果、シート名、「検索シート」が無い場合は「検索シート」という名前のシートが作成され、有る場合は何も変化が無いと思います。

 と、言う訳で、これを手がかりに、目的のマクロを考えようかなぁ、なんて思います。

 なお、もし上手くいかない場合、私が説明できるのはここまでですので、後はWebかなんかで頑張って調べてみてください。

<リンク先(多謝):Shun's Page

”グッ”と来ることが書いてあったらクリックお願いします
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

人気ブログランキ

ング

« Thunderbird使いまくり検討(5)メール作成時、初期(デフォルト)で設定される差出人アカウント(アドレス)を変更してみる | トップページ | Excel/VBA備忘録(6)自動リンクのメッセージを表示しない »

パソコン・インターネット」カテゴリの記事

Excel/VBA」カテゴリの記事

コメント

弊店はブランドコピー時計N品
正規品と同等品質のコピー品を低価でお客様に提供します。
安心して購入して下さい。
自身が使用するだけでなく、入学、卒業、誕生日、結婚のお祝い等のギフトにもご利用ください。

コメントを書く

(ウェブ上には掲載しません)

トラックバック


この記事へのトラックバック一覧です: Excel/VBA備忘録(5)シートがあるかチェックし、なければ追加する:

» やり手しょこたんお宝映像集 [中川翔子コスプレSEXY画像&動画]
中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 ◆中川翔子水着でモノマネ「松田聖子」熱唱!!最新シングル「snow tears」がオリコンシングルチャート2位を記録し07年紅白歌合戦初出場を果たしたしょこたんのお宝熱唱映像です。... [続きを読む]

» 過激な「わいせつ写真」に香港芸能界が騒然!! [エディソン・チャン(陳冠希)をめぐる女性タレントらの「わいせつ写真」画像&動画]
香港の男性タレント・エディソン・チャン(陣冠希)とのプライベートなベッドシーン... [続きを読む]

« Thunderbird使いまくり検討(5)メール作成時、初期(デフォルト)で設定される差出人アカウント(アドレス)を変更してみる | トップページ | Excel/VBA備忘録(6)自動リンクのメッセージを表示しない »

2023年7月
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31