vbaに関するmellow_punchのブックマーク (85)
-
mellow_punch 2013/02/07
-
-
エクセルの複数シートにまたがる表の結合についての質問です。 - 15枚ほどのシートに同じ形式で、3列の表を作成しています。この表... - Yahoo!知恵袋
エクセルの複数シートにまたがる表の結合についての質問です。 15枚ほどのシートに同じ形式で、3列の表を作成しています。 この表を１つのシートにまとめる事はできないでしょうか？ 例） シート：4月、5月、6月・・・･･･ とあり、 各シートのＡ列に「名前」「年齢」「登録日」とあります。 このシートを１つのシートにまとめたいのです。 4月シートに３０行・5月シートに１５行・６月シートに２０行あった場合は、 まとめたシートが、６５行になるようにしたいです。 統合やグループ化などでまとめて計算したいわけではないので困っています。 シートを１つずつ選択してコピーしていますが、シート数が多いので時間がかかってしまいます。 何か良い方法はないでしょうか？ マクロ・ＶＢＡ使用でも良いです。 どうぞよろしくお願い致します。
-
シート
エクセル シートの結合・連結を簡単に解決しました。 エクセルの結合・連結をマスターしましょう！ エクセル 結合 連結 簡単・解決！ Homeへ シート エクセルのシート結合は、簡単にシートのデータを結合できます。 Ｓｈｅｅｔ１にＳｈｅｅｔ２，Ｓｈｅｅｔ３・・・・内部のデータを追加します。 Ｂｏｏｋにある全てのワークシートをSheet1(最も左のシート）に追加し、結合します。 次の図は、最初の最も左に位置するワークシートです。 ３つの項目、名前、身長、体重のみ入力してあります。 上記のＳｈｅｅｔ１にＳｈｅｅｔ２，Ｓｈｅｅｔ３を追加し、シートを結合します。 次の図は、左から２番目のワークシートの内容です。 次の図は、左から３番目のワークシートの内容です。 シートの結合は、次のＶＢＡで記述したマクロで行います。 Sub MergeSheets() Dim ws As Worksheet, int
-
Excelマクロ「ファイル」メモ(Hishidama's Excel "file" Memo)
S-JIS[2011-05-24] 変更履歴 Excelマクロでファイル出力 Excelマクロ（VBA）でファイルを出力する方法。 Shift_JISでファイル出力 UTF-8でファイル出力 Shift_JISでファイル出力 ごく普通の（昔ながらのBASICでの）ファイル出力方法。 MSX-BASIC時代から存在するOPEN～PRINT#を使う。 WindowsのExcel2003の文字コードはシフトJIS（たぶんMS932）なので、出力したファイルはSJISとなる。 Dim fno As Integer fno = FreeFile Open "c:\temp\excel_vba_sjis.txt" For Output As #fno 'データ出力 Print #fno, "データ1"; ","; "データ2" Print #fno, "データ2"; ","; "データ3" Close
-
Excel でコントロールをクリックするとコントロールやフォントのサイズが変わる - Microsoft サポート
概要 この資料は、Excel でワークシート上に配置したコントロールをクリックすると コントロールの大きさが変化する現象について説明しています。 現象 Excel でワークシート上にコントロールを配置し、コントロールをクリックするとコントロール自体の大きさやフォントが少し大きくなることがあります。また、コントロールの大きさによってはフォントのアウトラインがにじんで表示されることがあります。 状況 この現象は弊社にて Excel の問題として確認しています。 詳細 再現手順 Excel を起動します。 [表示] メニューの [ツールバー] をポイントし、[コントロール ツールボックス] を クリックします。 [コントロール ツールボックス] ツール バーの [デザイン モード] をクリックしま す。 [コントロール ツールボックス] ツール バーから [チェックボックス] を選択し、 ワーク
-
Microsoft サポート対象サービス パック
All Microsoft Global Microsoft 365 Teams Copilot Windows Surface Xbox Deals Small Business Support Software Windows Apps AI Outlook OneDrive Microsoft Teams OneNote Microsoft Edge Skype PCs & Devices Computers Shop Xbox Accessories VR & mixed reality Certified Refurbished Trade-in for cash Entertainment Xbox Game Pass Ultimate PC Game Pass Xbox games PC and Windows games Movies & TV Business Micro
-
VBAでBOM無しUTF-8テキストを出力する - enokitech
javadocのpackage-info.javaをマクロでまとめて出力しようとしたのだが、OPEN - CLOSE ではShift-JIS、FileSystemObjectではUTF-16かASCIIでしか出力できない模様。 この記述を参考にコードを作成。 '## ファイル出力 - 開始 ## Dim bytData() As Byte With CreateObject("ADODB.Stream") .Open ' UTF-8に変換 ' .Type = adTypeText .Type = 2 .Charset = "UTF-8" .WriteText "/**", 1 '改行する .WriteText " * XXX, 1 ' .WriteText " * <pre>", 1 ' .WriteText " * YYY", 1 ' .WriteText " * </pre>", 1
-
Excel VBA を学ぶなら moug モーグ | 即効テクニック | ブックのカラーパレットを設定する
ブックのカラーパレットを設定します。パレットには、56種類のカラーインデックスがあり、引数Indexでパレットの何番目かを特定します。引数を省略した場合には、パレットの56色すべてを含む配列を取得します。なお、各色はRGB値で表されます。 ●詳細● 構文 Object.Colors(Index) 設定/取得 設定項目 内容 Object Workbookオブジェクト [省略不可] Index カラーインデックス番号を指定 [省略可能] カラーパレットの何番が何色になるかは、次のサンプル1で確かめてください。 ●サンプル1● Sub ColorsSamp1() Dim i As Integer With Range("A1:G8") For i = 1 To 56 .Cells(i).Interior.Color = ActiveWorkbook.Colors(i) '---(1) '.Ce
-
-
Office TANAKA - セルの操作[文字色の設定]
VBAが使えるようになるには、ある程度の知識を学ばなければなりません。オブジェクトの理解もそのひとつです。オブジェクトとは、対象となるモノという意味です。たとえば、セルA1はRange("A1")のようにRangeオブジェクトで表します。このRangeオブジェクトに対して、データを入力したり、罫線を引いたりすることになります。 さらに、オブジェクトは独立して存在するものばかりではなく、何らかのオブジェクトに含まれているものもあります。たとえば、セル(Rangeオブジェクト)は、ワークシート(Worksheetオブジェクト)に含まれています。どのワークシートにも属さないセルというのは存在しませんよね。同じようにワークシート(Worksheetオブジェクト)も、ブック(Workbookオブジェクト)に含まれるオブジェクトです。つまり、セルA1を正確に記述するのなら「Book1のSheet1のセ
-
Excel 2003 カラーパレット － Excel 2007 で Excel 2003 カラーを簡単に使用できる Excel アドイン: ある SE のつぶやき
Excel 2003 カラーパレット － Excel 2007 で Excel 2003 カラーを簡単に使用できる Excel アドイン 新バージョンを公開しました！ カラーパレットをリボンメニューのホームタブに表示して使いやすくし、Excel 2007/2010 の両バージョンに対応した「Excel 2003 カラーパレット・改」を公開しました(2011/12/30)。 Excel 2003 カラーパレット・改 ～ Excel 2007/2010 で Excel 2003 のカラーを簡単に使用できる Excel アドイン はじめに 先日、Excel 2007 で Excel 2003 のカラーを使用するエントリーを掲載しましたが、配色パターンを使用する方法は大変なので Excel 2007 のアドインで「Excel 2003 カラーパレット」を作成してみたので公開します。 Excel 2
-
Hex関数 - OKWAVE
こんにちは ＶＢでちょっとしたことなんですが、自前の関数を作成するかどうかで悩んでいます。 nバイトの配列データ（dim xx() as Byte と宣言されている）を１バイトあたり２桁で表示したいのですが、Hex関数(あるいはHex$関数)では、0x00 の場合や0～9の場合、"0"や１桁になってしまうんですね。 もし組み込み関数で１バイトを２桁１６進数表示できる変換関数があれば、自前のものより高速だし楽だと思い、迷ってます。 「そんなものはないので自分で作れ」とか「こんなのあるよ」とか教えてください。お願いします。
-
No.8 ワークシートの最終行、最終列を取得する
ワークシートの最終セル（最終行、最終列）を取得する… VBAをはじめた人は誰しも最初に引っかかる問題ではありますが、幸いにもインターネットで検索するといくつもの解決法が見つかります。 ところが…動いたり動かなかったり、想定外の動作をすることがあります。そもそもいくつもの解決法があること自体おかしい、いったい本当の答えはどれ？この際、白黒はっきりさせようじゃないかというのがこのページの趣旨です。 <S1> ワークシートの最大行、最大列を取得する MaxRow = Rows.Count MaxCol = Columns.Count まず基本からですが、ワークシートの最大行、最大列を取得するコードです。もちろんこれ自体は最終行、最終列を取得するものではありません。 Rowsはワークシートの行全体をあらわすオブジェクトで、Columnsは列全体をあらわすオブジェクトです。そのメソッドCountは数
-
-
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
-
AddinBox(プログレスバー)
１．プログレスバー(ProgressBar)とは 時間の掛かる処理を実行している時には､「今動いてるのか？止まっているのか？」という思いで ユーザーは不安になるものです。そこで､その不安を解消するとともに､「どの位進んだのか」を知ら せる為のインターフェースとして使われるのが『プログレスバー』です。エクセルブックを開く時や､ インターネットでダウンロードする時に表示される『青く伸びるバー』の事です。 ＶＢＡで『プログレスバー』を使うには､いくつかの方法がありますので順に説明していきます。 (1) ウィンドウ左下のステータスバーを利用する (2) プログレスバーコントロールを利用する (3) ラベルコントロールを使ってプログレスバーを自作する (4) アドインソフトを利用する (5) ループ処理をUserFormモジュールに移さないで､UserFormのプログレスバーを動か
-
-
シートの保護
Dim sheet1 As Worksheet Set sheet1 = Worksheets(1) sheet1.Protect Password:="pass" 保護の解除の際にパスワード入力が必要とするには「Password」引数に保護解除のためのパスワードを設定します。 また保護の対象を細かく設定することが可能です。設定可能な項目と省略した場合のデフォルト値は次の通りです。 定数対象デフォルト値
-
特定のセルが見えるようにスクロールする（Goｔoメソッド）：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
特定のセルが見えるようにスクロールする（Goｔoメソッド） (Excel 97/2000/2002/2003/2007/2010/2013) 1画面に収まらないほどたくさんのデータがあるとします。 このワークシートから特定のデータを検索してそのセルを選択するには、いろいろな方法がありますが、For...Nextステートメントを使う場合は次のようにします。 Sub Sample1() Dim i As Long For i = 1 To 1000 If Cells(i, 1).Value = "もうぐ 太郎" Then Cells(i, 1).Activate Exit For End If Next i End Sub このマクロを実行するとき、現在表示されている画面に "もうぐ 太郎" が見えていたらアクティブセルがそこに移動します。 現在表示されている画面になかった場合は、検索されたセ
公式Twitter
- @HatenaBookmark
リリース、障害情報などのサービスのお知らせ
- @hatebu
最新の人気エントリーの配信
キーボードショートカット一覧
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
