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)自動リンクのメッセージを表示しない »
「パソコン・インターネット」カテゴリの記事
- 【迷惑メールを晒す】【コインチェック株式会社】件名:【Coincheck】ログイン確認メール【コインチェックを騙るメール】(2022.06.26)
- 【迷惑メールを晒す】件名:【au PAY】個人情報確認【auを騙るメール】(2022.06.19)
- 【迷惑メールを晒す】件名:【新生銀行カード】ご利用確認【新生銀行を騙るメール】(2022.06.12)
- 【迷惑メールを晒す】件名:未払いがございます。債務の決済が必要です【迷惑メールを晒す】(2022.06.05)
- 【迷惑メールを晒す】件名:2日以内に納税するのをお忘れなく!【迷惑メールを晒す】(2022.05.29)
「Excel/VBA」カテゴリの記事
- Excel/VBA備忘録(14)ある範囲のデータを(リンクされた)図として別の場所に貼り付ける『カメラ』機能を使う(2009.04.18)
- Excel/VBA備忘録(13)何年かの間にある月の数を調べてみる(2008.09.14)
- Excel/VBA備忘録(12)シート(名)のリストを作ってみる(2008.09.12)
- Excel/VBA備忘録(11)Sendkeysステートメントでキーを複数回押したような動作をさせてみる(2008.08.09)
- Excel/VBA備忘録(10)条件付き書式を使う(2008.04.23)
コメント
トラックバック
この記事へのトラックバック一覧です: Excel/VBA備忘録(5)シートがあるかチェックし、なければ追加する:
» やり手しょこたんお宝映像集 [中川翔子コスプレSEXY画像&動画]
中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 中川翔子 コスプレ画像&動画 ◆中川翔子水着でモノマネ「松田聖子」熱唱!!最新シングル「snow tears」がオリコンシングルチャート2位を記録し07年紅白歌合戦初出場を果たしたしょこたんのお宝熱唱映像です。... [続きを読む]
» 過激な「わいせつ写真」に香港芸能界が騒然!! [エディソン・チャン(陳冠希)をめぐる女性タレントらの「わいせつ写真」画像&動画]
香港の男性タレント・エディソン・チャン(陣冠希)とのプライベートなベッドシーン... [続きを読む]
« Thunderbird使いまくり検討(5)メール作成時、初期(デフォルト)で設定される差出人アカウント(アドレス)を変更してみる | トップページ | Excel/VBA備忘録(6)自動リンクのメッセージを表示しない »
弊店はブランドコピー時計N品
正規品と同等品質のコピー品を低価でお客様に提供します。
安心して購入して下さい。
自身が使用するだけでなく、入学、卒業、誕生日、結婚のお祝い等のギフトにもご利用ください。
投稿: 中国製 スーパーコピー 2ch | 2022年11月15日 (火) 23時26分