約 4,637,374 件
https://w.atwiki.jp/yamajiyuta/pages/16.html
VBA(Visual Basic for Applications) マクロとは、アプリケエーションソフトの操作を自動化するための機能である。 シートやフォームに関連しないコードを標準モジュールという。 メッセージボックスを表示する。 Sub Message() MsgBox "Hello World!" End Sub SubとEnd Subの間に記述したコードのかたまりをプロシージャという。 ステートメントを次の行に続ける場合は、改行の前に「 _」(半角スペースとアンダーバー)を記述する。 コメントは「 」(シングルクォーテーション)を使って記述する。 変数の宣言 Integer型(整数)の変数aを宣言する。 Dim a As Integer 文字列型 文字列はStringというデータ型に格納する。 Dim fruit As String fruit = "りんご" 定数 定数はConstを使って定義する。 Const PI As Integer = 3.14 定数に値を代入することはできない。 特殊文字 vbCr 改行 vbTab タブ vbBack バックスペース vbNullChar NULL文字 配列 配列の宣言 Dim a(1 To 4) As Integer または、 Dim a(3) As Integer 配列の要素の参照と代入 a(0) = 1 MsgBox a(0) MsgBox関数 MsgBox (prompt[, buttons][,title][, helpfile, context]) Buttonsには、vbOKOnly、vbOKCancel、vbYesNo、vbYesNoCancelなどを指定できる。 プロシージャ Subプロシージャは戻り値がない。 SubステートメントとEnd Subステートメントを使って定義する。 引数のあるプロシージャは以下のように定義する。 Sub A(str As String) MsgBox str End Sub Functionプロシージャは戻り値がある。 FunctionステートメントとEnd Functionステートメントを使って定義する。 Function A() aaa = "Hello" End Function プロシージャの呼び出しにはCallステートメントを用いる。 Call A 引数を渡して呼び出す場合 Call A("引数1") 変数のスコープ プロシージャ内で宣言した変数は、宣言したプロシージャ内でのみ有効である。 モジュールの先頭で宣言した変数は、モジュール内で有効である。 バリアント型 宣言せずに使用した変数のデータ型をバリアント型(Variant)という。 バリアント型のサイズは16バイトである。 モジュールの先頭で次のように記述すると、宣言していない変数を使用できないようにできる。 Option Explicit 文字列連結演算子 MsgBox "2010" "年" ""IF~Thenステートメント If 条件 Then 処理1 ElseIf 条件2 Then 処理2 ElseIf 条件3 Then 処理3 Else 処理4 End If ""Select Caseステートメント Select Case 式 Case 値1 処理1 Case 値2 処理2 Case Else 処理n End Select 値の指定方法 Case 4,5,6 Case 2 To 5 // 範囲指定 比較演算子の使用 Case Is 10 For~Nextステートメント Dim i As Integer For i = 0 To 3 処理 Next 増分の指定 Dim i As Integer For i = 2 To 30 Step 3 処理 Next For Each ~Nextステートメント あるオブジェクトの集まりに対して、その中のすべての要素に対して処理を行う。 Dim ws As WorkSheet For Each ws In WorkSheets 処理 Next Do~Loopステートメント Do While~Loopステートメント 処理の前に条件を評価する。 Do While 条件 処理 Loop Do ~Loop Whileステートメント 処理の後に条件を評価する(必ず1度処理を実行する)。 Do 処理 Loop While 条件 ある条件が成立するまで繰り返しを実行するには、Untilを使用する。 Do Until~Loopステートメント 処理の前に条件を評価する。 Do Until 条件 処理 Loop Do ~Loop Untilステートメント 処理の後に条件を評価する(必ず1度処理を実行する)。 Do 処理 Loop Until 条件 Exitステートメント Exit For Exit Do 無限ループ [Ctrl] + [Break]で中断可能 オブジェクト 操作の対象となる、Excelのワークブックやワークシートをオブジェクトという。 また同じ種類のオブジェクトをひとまとめにしたものをコレクションという。 オブジェクトはObject型の変数に代入できる。 Setステートメントで変数とオブジェクトを関連付ける。 Dim obj As Object Set obj = Application 変数とオブジェクトの関連付けを無効にする場合は、Nothingキーワードを使用する。 Set obj = Nothing プロパティ プロパティとは、オブジェクトの状態や属性のことである。 参照 Dim cnt As Integer cnt = ThisWorkbook.Worksheeets.Count メソッド メソッドとは、オブジェクトを操作したり、動作させるインターフェースである。 ワークブックBook2をアクティブにする。 Workbooks("Book2").Activate 例 A1 A3にHelloを記入する。 Sub SheetActivate Sheet3.Activate ActiveSheet.Range("A1 A3").Select Selection.Value = "Hello" End Sub ワークブックBook1を、保存せずに閉じる。 WorkBooks("Book1").Close False 2番目のワークシートの次に、ワークシートを1つ追加する。 Worksheets.Add After =Worksheets(2), Count =1 ユーザーフォームの操作 ユーザーフォームを表示する Load UserForm1 UserForm1.Show ユーザーフォームを閉じる Unload UserForm1 セルの参照 1つのセルを参照するには、CellsプロパティまたはRangeプロパティを使用する。 A1セルに10を代入する。 Cells(1,1).Value = 10 Range("A1").Value = 10 セル範囲の参照 Range("A1","B2").Select アクティブセルの参照 MsgBox ActiveCell.Value VBAで数式を取得・設定するにはFormulaプロパティを使用する。 Cells(1,1).Formula= "=1+1" セルの表示形式 NumberFormatプロパティを使用する。 日付 ActiveCell.Value = "2010/5/5" ActiveCell.NumberFormat = "yyyy年m月d日" 通貨 ActiveCell.Value = "1000" ActiveCell.NumberFormat = "\\#,##0" 桁数指定 ActiveCell.Value = "10" ActiveCell.NumberFormat = "0.00" 文字の色 Cells(1,1).Value = "AAAAA" Cells(1,1).Font.Color = RGB(255,0,0) 文字の大きさ Cells(1,1).Value = "AAAAA" Cells(1,1).Font.Size = 8 罫線 ActiveCell.Borders.LineStyle = xlContinuous 他には、xlDash、xlDoubleなど セルの塗りつぶし ActiveCell.Interior.Color = RGB(200,200,200)
https://w.atwiki.jp/springjoe2/pages/13.html
Excel→PDF変換するためのツールがEcPDF2007.exeです。 ダウンロードはこのサイトからできます。http //online-de.from.tv/dll/dwnlist.html Excelはバージョン2007です -------- 概要 -------- VB.NET 用 コンポーネント ExcelをPDFに変換するアプリケーションです。 ------------ 動作環境 ------------ VB.NETのクラスライブラリが利用可能な環境 Excelは2007以降が必要です(重要:2007より前のバージョンは対応していません)。 ---------------- インストール ---------------- setup.exeを起動します、「次へ」で自動インストール作業が進んでいきます。 -------------------- アンインストール -------------------- コントロールパネルよりEcPDF2007を削除してください。 【使用方法】画面から操作 一個目のテキストボックスにエクセルファイルのフルパスを設定 二個目のテキストボックスにPDFのフルパスを設定 実行ボタンを押します。 【使用方法】コマンドプロンプトから操作 引数1→エクセルファイル名フルパス 引数2→PDF名フルパス 例) C \ EcPDF2007.exe C \Users\x300\Book1.xlsx C \Users\x300\PdfTest.pdf
https://w.atwiki.jp/nadebook/pages/234.html
エクセル追加命令集(luacom版) 「なでしこ」からluacomを使って、エクセルと連携するための命令集を作成しました。 開発に1ヶ月、マニュアルに2週間もかかってしまいましたが、なんとか148個(実際は199個)の命令を追加することが出来ました。 これにより、よりきめ細かなエクセル操作が可能となります。 しかしながら・・・ やはり、エクセルから取得したデータに日本語(2バイト文字)が含まれていた場合、文字化けや文字欠落が発生して、とても実用になりません。(日本語をエクセルに設定することはできます。) エクセル追加命令の一覧 ---- アプリケーション関係 ---- ・起動 ・終了 ・起動状態 ・バージョン ・可視 ・警告 ・ウィンドウ最大化 ・ウィンドウ最小化 ・ウィンドウ元通り ・タイトル ・ステータスバー ・ステータスバー解除 ・ステータスバー可視 ・枠線表示 ・マクロ実行 ・キー送信 ・キー送信待機 ---- ブック関係 ---- ・ブック追加 ・ブック開く ・ブック列挙 ・現在ブック ・ブック保護設定 ・ブック保護解除 ・ブック保存 ・バックアップ ---- シート関係 ---- ・シート追加 ・シート列挙 ・現在シート ・シート削除 ・シート名変更 ・シートコピー ・シート前移動 ・シート後移動 ・シート先頭移動 ・シート末尾移動 ・シートタブ色 ・シートタブ表示 ・シート保護設定 ・シート保護解除 ・枠固定 ・シート表示 ---- セル関係 ---- ・R1C1形式変換 ・A1形式変換 ・選択セル ・選択セル数 ・セル全選択 ・セル名 ・セル名選択 ・セル最上行 ・セル最下行 ・セル最左列 ・セル最右列 ・セル種類指定選択 ・セル種類指定設定値 ・セル表選択 ・セルオフセット選択 ・値設定 ・値取得 ・式設定 ・式取得 ・値一括設定 ・値一括取得 ・式一括設定 ・式一括取得 ・切り取り ・コピー ・貼り付け ・値貼り付け ・数式貼り付け ・書式貼り付け ・セル置換 ・重複行削除 ・セル太字 ・セル斜体 ・セル下線 ・セル下線設定値 ・セル取消線 ・セル文字色 ・セル背景色 ・セル網掛けパターン ・セル網掛けパターン設定値 ・セル網掛け色 ・セル文字書体 ・セル文字サイズ ・セル文字上付 ・セル文字下付 ・セルリンク ・セル番地リンク ・セルリンク解除 ・セルリンク実行 ・セル罫線 ・セル罫線位置設定値 ・セル罫線種設定値 ・セル読み ・セル読み表示 ・セル読み書体 ・セル読み種類設定値 ・セル読み配置設定値 ・セル読みスタイル設定値 ・セル結合 ・セル分解 ・セル縦結合 ・セル横結合 ・セル表示形式 ・セル横位置 ・セル横位置設定値 ・セル縦位置 ・セル縦位置設定値 ・セル字下げ ・セル前後空白 ・セル改行表示 ・セル縮小表示 ・セル表示角度 ・セルコメント ・セルコメント削除 ・セルコメント表示 ・行選択 ・列選択 ・行表示 ・列表示 ・行高さ ・列幅 ・行挿入 ・列挿入 ・行削除 ・列削除 ・行高さ調整 ・列幅調整 ・セルサイズ調整 ・セル書式クリア ・画像挿入 ---- 印刷関係 ---- ・ブック印刷 ・ブック印刷プレビュー ・シート印刷 ・シート印刷プレビュー ・選択範囲印刷 ・選択範囲印刷プレビュー ・印刷部数 ・用紙サイズ ・印刷方向 ・印刷余白 ・印刷範囲 ・印刷倍率 ・印刷縦横枚数 ・印刷縦横枚数解除 ・水平改ページ ・垂直改ページ ・改ページ解除 プログラム ダウンロード luacomが日本語に未対応のため、Excelから日本語を取得することができません。 マニュアル Microsoft Word版 ダウンロード PDF版 ダウンロード
https://w.atwiki.jp/pc-help/pages/16.html
Excelシート参照 別ブック(別ファイル)のシート参照ですが ファイル開いて、参照モードにして選択すればよいだけですが あえて関数に式を入れたい場合 ブック名シート名! セル シングルクォーテーションで囲えばよいです。
https://w.atwiki.jp/ohden/pages/395.html
Excel Excel 2007 Excel 2010 Excel for Office365 ※主にExcel for Office365を利用。 ~tools~ RelaxTools Application/Excel/tools/ ~tips~ Excel関数だけでフルパスからファイル名を取り出す Excelで日付を扱いたい Excelで時間を扱いたい オートシェイプの中の文字を検索したい 相対指定で任意のセルの値を取得したい 当該シートのシート名を取得したい VLOOKUPで正しい値を入力してもN/Aが表示される Wordの表をExcelにcopyしたい xls fileを開くだけで構成管理上で差分が発生する シート名一覧の取得 シーケンシャルな値(ID)を自動で採番したい 複数条件分岐の書き方 コンテキストメニューが出ない ※未解決 Application/Excel/tips/ ~memo~ 日付フォーマットで曜日を漢字で出力したい 元日付 書式 変換後 2011/11/11 yyyy"年"mm"月"dd"日("aaa")" 2011年11月11日(金) 更新日: 2021年10月13日 (水) 10時54分34秒 Excel-DNAとCSを使ってExcelの機能を追加できる Excel-DNAを使って関数を作る Excel-DNAを使ってC-Sharpで関数を作る Excel-DNAを使ってC-Sharpで作った関数をDLL化する -- (s1n) 2018-08-23 09 31 03 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/kojintekinawiki/pages/26.html
EXCEL豆知識 EXCELで共有設定にしていると、他人の「表示しない」「再表示する」操作は反映されない。 最初からの罫線(薄いやつ)の表示の仕方/消し方 ページレイアウト>枠線>表示(チェックを外す) または 該当箇所を指定>右クリック>セルの書式設定>塗りつぶし>背景色(色なし)>OK 行の高さがめちゃめちゃになる現象の治し方 [Excelのオプション]>[詳細設定] > [挿入したオブジェクトをセルと共に切り取り、コピー、並べ替えを行う]にチェック。 フッターに章番号入れる方法。 ページ番号挿入。←でうまくいかない場合 挿入>参照>相互参照で入れる。あと整形。 フッターに各種情報挿入 [パス] [ファイル名] [シート名] [日付] [時刻] [ [ページ番号] / [総ページ数]] 日付表示を文字列整形する 日付⇒文字列 =IF(ISNUMBER($C$20),TEXT($C$20,"YYYYMMDD"),"YYYYMMDD") 文字列⇒日付 =IF(ISNUMBER($C$20),DATEVALUE(TEXT($C$20,"0000!/00!/00")),"YYYYMMDD") シート名をセルに =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1))) ミリ秒の書式 yyyy/mm/dd hh mm ss.000 最後に登場する「\」より手前の文字列を取得する =LEFT(A1, FIND("*", SUBSTITUTE(A1, "\", "*", LEN(A1) - LEN(SUBSTITUTE(A1, "\", ""))), 1) - 1) 最後に登場する「\」から先の文字列を取得する 空白考慮なし =RIGHT(A1, LEN(A1) - FIND("*", SUBSTITUTE(A1, "\", "*", LEN(A1) - LEN(SUBSTITUTE(A1, "\", ""))))) 空白考慮あり =IF(F3="","",RIGHT(F3, LEN(F3) - FIND("*", SUBSTITUTE(F3, "\", "*", LEN(F3) - LEN(SUBSTITUTE(F3, "\", "")))))) 新規のブックのシート数を変更する。 ファイル>オプション>基本設定>新しいブックの作成時>ブックのシート数 アニメーションを無効化する ファイル>オプション>簡単操作>操作の結果のオプション>□操作をアニメーションで表示する 更新日時 2018年12月23日 (日) 15時57分28秒 ここを編集
https://w.atwiki.jp/kojiro/pages/14.html
自サイトはたんぽこ通信。 基本は林檎使いで窓は仕事のみ。 10年来勤務した会社でExcel等のMicrosoft製品に触れ、ディープなユーザーとなるが、基本的に窓は嫌い。でも、いまだに仕事で窓とペンギンを使っている。 自サイトは趣味のページなのでMicrosoft関連の記事は一件もないが、このたび、手製のExcel4.0関数ヘルプを消失したことが判明。ネットを検索するも、求めるExcel4.0マクロまで突っ込んだサイトが見当たらなかったため、自分のためにwikiを作成することになる。Excel4.0にこだわる理由はそれしか使ったことがないから。 当wikiはMicrosoftとは何の関連もありませんし、Microsoft製品をプッシュするものでもありませんが、Microsoft Excelを少しでも便利に使うためにご利用ください。ただし、私人のwikiにつき、当wikiの情報を鵜呑みにして「間違っていた・損害を被った」等のクレームは受け付けられません。自己責任にてご使用ください。それ以外のお問い合わせ等はページ上部の管理者に連絡からいただければ、わかる範囲で返事をすることもあります。
https://w.atwiki.jp/endomutsumi/pages/18.html
AccessでExcelシートをリンク 1.手動で実行 Access2003以前とAccess2007では手順が違うので注意。 【Access2003】 ファイル→外部データの取り込み→テーブルのリンク ファイルの種類でMicrosoft Excel(*.xls)を選択する。 【Access2007】 1.外部データ→Excel 2.Excelファイルを指定し、リンクテーブルを作成してソースデータにリンクするを選択して「OK」 3.あとは、ウィザードの指示に従う。 2.VBAでコード組む場合 すでにExcelシートがリンクされているかどうかの存在チェックをTable_chk()でチェックし、存在すれば、リンク情報を更新し、なければ新たにリンク接続を作成する。 Accessバージョン:2003 【VBAコード例】 Sub sdb_xls_link() Dim MyDb As Database Dim ExcelSheet As TableDef Dim xlsfile As String Set MyDb = CurrentDb xlsfile = GetFileName ←「ファイルを開く」ダイアログで指定(Accessで「ファイルを開く」ダイアログを使用を参照) If xlsfile = "" Then Exit Sub End If If Table_chk("Excelシート名") = False Then ←存在チェックをする Set ExcelSheet = MyDb.CreateTableDef("Excelシート名") ExcelSheet.SourceTableName = "Excelシート名$" ExcelSheet.Connect = "Excel 5.0;HDR=NO;IMEX=2;DATABASE=" xlsfile ";TABLE=Excelシート名$" MyDb.TableDefs.Append ExcelSheet Else Set ExcelSheet = MyDb.TableDefs("Excelシート名") ExcelSheet.Connect = "Excel 5.0;HDR=NO;IMEX=2;DATABASE=" xlsfile ";TABLE=Excelシート名$" ExcelSheet.RefreshLink End If Set ExcelSheet= Nothing MyDb.Close Set MyDb = Nothing End Sub Function Table_chk(strTable As String) As Boolean Dim tdf As TableDef Table_chk = False For Each tdf In CurrentDb.TableDefs If strTable = tdf.name Then Table_chk = True Exit For End If Next End Function お名前 コメント
https://w.atwiki.jp/passgetter/pages/18.html
Excelファイル保護解除 パスゲッターOffice Editionでは、Excelファイルの保護パスワードを解析することができます。 このようにExcelファイルがパスワードロックされている場合に、パスワードを解析します。 パスゲッター(Excel)を起動し、基本設定でWordファイルを指定し、スタートアイコンをクリックします。 パスワード解析完了後、パスワードが表示されます。
https://w.atwiki.jp/makurosex/pages/34.html
マクロFH用語集 あ行 おまえのかあちゃんでべそ 黒魔がよく発することばで挨拶みたいなものらしい 本当にかあちゃんがでべそでも気にしなくてよい か行 さ行 新職に落書きしてみた あっそ た行 チート なんらかの方法で壁を破り鯖へ進入データを改ざんする事 一般的なFHにおいては禁止、見つかればアカウント削除とされているが本鯖では禁止されていない。 雷厨氏が得意としているようなので興味のある方は尋ねるといいかも? 多重登録 一人で多数のキャラを作ること。 一般的なFHにおいては禁止、見つかればアカウント削除とされているが本鯖では禁止されていない。 ちんこ大好きです^q^ 敷島 クルルが使う言葉 ちんことはシャナたんのことである てぃんてぃん ( .人 .)が使える二つの言葉の一つ 意味不明 な行 肉便器たん シャナたんが八雲 紫を呼ぶときにこう呼ぶ 本人は嫌がってる にぅにぅ ( .人 .)が使える二つの言葉の一つ 意味不明 は行 ま行 マクロ AutoMouse、Uwsc等のソフトによりパソコンの操作を自動化すること。 一般的なFHにおいては禁止、見つかればアカウント削除とされているが本鯖では禁止されていない。 10万戦を越える人はもれなく使っていると思って間違いない。 や行 ら行 わ行