サイトをご覧になった方からリクエストをいただきました。「特定のブックを開いているか、どうやってチェックしたらいいですか？」と。また、別の方から「'合計'という名前のシートがあるかどうか調べたい」というメールもちょうだいしました。これらは同じ考え方で実現できますので、一緒に解説しましょう。 ブックが開いているか調べる このテクニックは、実は「ファイルの操作」の「現在開いているブックの一覧を取得する」で解説しています。念のため同じコードを再度ご紹介します。 Sub Sample01() Dim wb As Workbook, flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xlsx" Then flag = True Next wb If flag = True Then MsgBox "Book1 を開いています。",
excelに関するmikazukidouのブックマーク (15)
-
mikazukidou 2012/02/15
-
重庆强瀚纺织-专注缝纫线_绣花线批发[量大从优]
雷竞技app下载官方版市强瀚纺织有限公司 雷竞技app下载官方版市强瀚纺织有限公司是一家主营线制品和五金制品生产加工的企业，公司位于雷竞技app下载官方版市大足区龙水镇，龙水是远近闻名的五金之乡。注册时间1995年，经营范围：线制品、五金制品加工销售。强瀚纺织有限公司拥有先进，科学，环保的生产设备，是雷竞技下载链接官网app、工业线、民用线、农机配件筛圈和炉圈的生产线等产品专业生产加工的公司。公司拥有完整、科学的质量管理体系。 公司现自行研发设计出几条全自动机械化生产线。该生产线为我公司自行研发、创新、设计的，目前为全国首创的生产线：设备先进、稳定，自动化程度高，能耗低，使用清洁能源，环保无污染，无需用煤、噪音低。该生产线生产用材节省，材料用尽率高，节省生产成本，成品率高达99.9％， 生产效率高，人工效率高，比普通传统工艺节省2/3以上的人工。人工劳动强度极低，生产出的产品品质优良、价廉
-
-
Office TANAKA - VBAデータベース的活用法[オートフィルタで抽出する]
指定した条件に一致するデータだけを別のシートに抽出してみましょう。元データが入力されているシートを「Sheet1」、抽出する先のシートを「Sheet2」とします。 「商品コード=A001」のデータだけを Sheet2 に抽出してみます。ここではオートフィルタを使います。 Sub Sample03() With Worksheets("Sheet1").Range("A1") .AutoFilter Field:=1, Criteria1:="A001" ''(1) .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("Sheet2").Range("A1") ''(2) .AutoFilter ''(3) End With Worksheets("Sheet2").Activate End Sub (1) Sheet1 のリストにオ
-
Office TANAKA - Excel VBA Tips[すべて検索する]
見つかったセルを別のシートにコピーする すべてのセルを検索する流れは変わりません。 前ページの「見つかったすべてのセルを選択状態にする」では、見つかったセルを次々と変数Targetに格納しましたが、その代わりに、見つかったセルを次々と別のシートにコピーすればいいです。なお、ここでは、Sheet1のデータをSheet2にコピーするものとします。 Sub Sample7() Dim FoundCell As Range, FirstCell As Range Set FoundCell = Cells.Find(What:="田中") If FoundCell Is Nothing Then MsgBox "見つかりません" Exit Sub Else Set FirstCell = FoundCell 別シートにコピーする End If Do Set FoundCell = Cells.Fi
-
エクセルVBA5「検索・抽出・表示」
エクセルで表を作成して、その中である記号に注目して検索したり、抽出したり、またすべての行を表示したいことがある。たとえば、一覧表の中で、○印をつけたものだけを抽出し、それを別のシートに表示する。また案内を出した人の名簿を作成していて、実際に参加した人を名簿の中で○印を入れて、それを一気に別シートに表に作成する。そのまま印刷も可能にするマクロもできる。 モジュールのソースをボタンでコピーできるようにしました。ホームページに載っているソースをコピーしようとしてドラッグしかけて、うまく全体がコピーできなかったことを今まで何度も経験していると、簡単にコピーできるほうがありがたい。そんな思いで一括コピーするボタンをつけてみました。もちろん私はエクセルVBAといっても本で読んだり、他の人のHPを参考にしながら、自分が利用しそうなものをまとめているだけで、自分なりに手を加えている箇所は非常に少ないだろう
-
ODN：サービス終了のお知らせ
ご訪問いただいたお客様へのお知らせ アクセスいただいたWebサービスは提供を終了いたしました。 長年にわたり、多くの皆様にご利用いただきましたことを心よりお礼申し上げます。 ODNトップページへ
-
Word,Excel,PowerPointの技--Be Cool Users
Word・Excel・PowerPointの技 このサイトでは、Office 2003までの使い方を扱っています。 新しいバージョンの使い方は、別サイト「Be Cool Users Office」をご覧ください！ このサイトのWordカテゴリー Word トップページ 画面表示：ここを甘く見るとステップアップは一生望めません！作業効率アップ基本のキ。 入力・編集：バカにできない入力のススメ・編集中の瞬間技。 保存・印刷：こんな方法があったのか！ レイアウト：クールな文書作りにこんな技を使いこなしたい！ 表・罫線：スピーディーに表を操るテクニックたち。 図形：図形の技ってあなどれない！ その他：こんな技で更にパワーアップ！ このサイトのExcelカテゴリー Excel トップページ 画面表示：Excel作業効率アップ基本のキ。まずはこれからスタート！ 入力・編集：入力時間、編集時間、短縮。短
-
Office TANAKA - Excel VBA Tips[重複行を削除する]
上図のようなリストがあったとします。同じ名前の人が重複していますね。このリストから重複したデータを削除するには次のようにします。 Sub Sample() Dim i As Long With Range("A2") Do While .Offset(i, 0) <> "" If .Offset(i, 0) = .Offset(i - 1, 0) Then .Offset(i, 0).EntireRow.Delete i = i + 1 Loop End With End Sub セルA2を基点として"注目セル"を1つずつ下げていきます。このとき、アクティブセルを移動するのではなくOffsetメソッドを使います。"注目セル"が、"注目セルの1つ上"と同じだったら、"注目セル"を含む行(EntireRow)を削除(Delete)します。 行の削除をマクロ記録で調べるとき、普通は行番号を右クリ
-
MilkHouse
ExcelVBA Visual Basic for Applications 初心者向けExcelVBAのHomePageです ■Menu ここのMainContentsです ■GuestBook 足跡を残していって下さいね ■Link リンク集です ■Mail 管理人へのメールです ■Monologue 管理人の独り言です ■Me プロフィールです ■Infomation ・各種コンテンツは商業利用を除き 自由にお使い下さい ・著作権は管理人に帰属します ・SampleCodeによるいかなる損害も 責任を負わないものとします Since Jan , 2001 All Rights Reserved , Copyright (C) Saeca
-
-
-
EXCEL VBA 文字列操作関数
Sub ReplaceSamp1() strSamp = "123456789" strSamp = Replace(strSamp, "123", "000") '000456789を返す Range("A1:A6").Select '---置き換え対象範囲を選択します With Selection .Replace What:=1, Replacement:="1:北海道", LookAt:=xlWhole '---完全に一致するものだけ置き換えます .Replace What:=2, Replacement:="2:青森県" '---2回目以降はLookAtには前回と同じものが使用されるため、省略が可能です .Replace What:=3, Replacement:="3:秋田県" .Replace What:=4, Replacement:="4:岩手県"
-
教師のためのExcelVBA開発室
<BODY bgcolor="#FFFFCC" text="#006633" link="#6633CC" vlink="#CC66FF" alink="#33FEFE" background="y6b.gif" bgProperties="fixed"> <P><A name="トップ"><IMG align="middle" border="0" src="les1_l1.gif" alt="ライン" width="378" height="37">Since2001.2.18<BR> </A><IMG src="p_cut021.gif" width="64" height="64" border="0"><FONT size="+1" color="#0000ff"><B>2013年 4月 8日 <IMG src="kousin_av.gif" width="62" height=
-
簡単！マクロ講座目次
マクロがどこにどのように記録されているかをビジュアルベーシックエディタ（VBE）画面の見方を含めて解説しています。
-
1
公式Twitter
- @HatenaBookmark
リリース、障害情報などのサービスのお知らせ
- @hatebu
最新の人気エントリーの配信
キーボードショートカット一覧
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Copyright © 2005-2025 Hatena. All Rights Reserved.
設定を変更しました