約 2,022,046 件
https://w.atwiki.jp/javadsge/pages/4247.html
(1)表 (2)プログラム プログラム (3)グラフ EXCEL (4)出所 (5)メモ fusiontables読み込み (6)作業記録 3月9日 ページ imageプラグインエラー 画像を取得できませんでした。しばらく時間を置いてから再度お試しください。 -
https://w.atwiki.jp/yasukoba/pages/119.html
はじめに 私の専門分野の応用例は画像処理が主ですので,画像上の画素配置を図で表現する機会があります. その表現手段として,Excelに代表される表計算ソフトは,非常に便利です. セルのサイズを変更して正方形にしてしまえば画素のイメージとなりますし,画素の階調値などを表現する場合はセル内に数値を入力すればよいので. 現在,多めに画像表現を作成する必要があるのですが,サイズを変更したり罫線を引いたり数値を入力したりの反復作業が億劫になってきました. そこで,VBAを用いてこの作業を自動化出来ないかと考えました. 私個人としてはプログラミングといえばC言語と思っていたので,マクロやVBAには手を出さずに来たのですが,限られた環境で適切に使用する分には問題ないと思い試作してみました. まだまだ途中ではありますが,Excelを用いた簡易的なプログラムを書くには非常に便利なツールであることは分かりました. VBA内での関数の使用 VBA内でも複雑な計算が必要となる場合があります. しかし,ワークシートで使用している関数すべてがVBAで使用できるわけではありませんので注意が必要です. 例) MOD - Mod ※ただし剰余対象の数が負の場合結果が異なるので使用する場合には注意! MOD(-4, 3) = 2 -4 mod 3 = -1 INT - Int
https://w.atwiki.jp/erebos/pages/36.html
Excelファイルを開き、指定のセル値を取得 public class ExcelUtil { #region メンバ変数 private Excel.Application oXls; private Excel.Workbook oWBook; #endregion #region プロパティ /// summary /// ワークブック /// /summary public Excel.Workbook Book { get { return this.oWBook; } } #endregion /// summary /// コンストラクタ /// /summary public ExcelUtil() { } #region メソッド /// summary /// 指定されたExcelファイルを開く /// /summary /// param name="fname" Excelファイル名 /param public bool Open(string fname) { this.oXls = new Excel.Application(); this.oXls.DefaultFilePath = AppDomain.CurrentDomain.BaseDirectory; //this.oXls.Visible = true; // 確認のためExcelのウィンドウを表示する try { // Excelファイルをオープンする this.oWBook = (Excel.Workbook)(oXls.Workbooks.Open( fname, // オープンするExcelファイル名 Type.Missing, // (省略可能)UpdateLinks (0 / 1 / 2 / 3) Type.Missing, // (省略可能)ReadOnly (True / False ) Type.Missing, // (省略可能)Format // 1 タブ / 2 カンマ (,) / 3 スペース / 4 セミコロン (;) // 5 なし / 6 引数 Delimiterで指定された文字 Type.Missing, // (省略可能)Password Type.Missing, // (省略可能)WriteResPassword Type.Missing, // (省略可能)IgnoreReadOnlyRecommended Type.Missing, // (省略可能)Origin Type.Missing, // (省略可能)Delimiter Type.Missing, // (省略可能)Editable Type.Missing, // (省略可能)Notify Type.Missing, // (省略可能)Converter Type.Missing, // (省略可能)AddToMru Type.Missing, // (省略可能)Local Type.Missing // (省略可能)CorruptLoad )); return true; } catch (Exception e) { Console.WriteLine(e.Message); return false; } } /// summary /// 指定されたワークシート名のWorksheetオブジェクトを返す /// /summary /// param name="sheetName" ワークシート名 /param public Excel.Worksheet GetWorksheet(string sheetName) { Excel.Worksheet oSheet; oSheet = (Excel.Worksheet)oWBook.Sheets[GetSheetIndex(sheetName, this.oWBook.Sheets)]; return oSheet; } /// summary /// 指定されたワークシート名のインデックスを返すメソッド /// /summary /// param name="sheetName" ワークシート名 /param /// param name="shs" ワークシートコレクション /param private int GetSheetIndex(string sheetName, Excel.Sheets shs) { int i = 0; foreach (Excel.Worksheet sh in shs) { if (sheetName == sh.Name) { return i + 1; } i += 1; } return 0; } /// summary /// Excelファイルを閉じる /// /summary public void Close() { this.oWBook.Close(Type.Missing, Type.Missing, Type.Missing); //this.oXls.DefaultFilePath = @"C \"; this.oXls.Quit(); Marshal.ReleaseComObject(this.oWBook); Marshal.ReleaseComObject(this.oXls); this.oWBook = null; this.oXls = null; } #endregion }
https://w.atwiki.jp/papi601106/pages/29.html
+目次はこちら グラフが表示通りに印刷されない グラフが表示通りに印刷されない 2012.01.31 グラフの凡例などが印刷されなくなるという現象が発生したので調べたらMSで発見。 2011 年 10 月以降に公開された Excel 2007 の更新プログラムを適用すると表示通りに印刷できない 良かれと思いあてた更新プログラムのせいでした・・・ 該当の更新プログラムのアンインストールでOKとのこと。 ちなみにこちらのKBです。 KB2596535 KB2596539 KB2596545 KB2596596 KB2596991 KB2597045
https://w.atwiki.jp/shiromaty/pages/22.html
Excel Tips & メモ ■部分一致条件付書式 例) C列に市区町村が入力され、そこに"八王子"とある場合に A~C列のセルの色を変えたい 1. 条件付書式にて「数式」を選択 2. 以下の式を入力 =FIND("八王子",#C1) 0 ■ウィンドウ枠の固定 例) C列(項目見出し用)と3行目(タイトル項目見出し用)を見出しとして使用し スクロールしても表示しておきたい 1. D4セルを選択→メニュー「ウィンドウ」→「ウィンドウ枠の固定」
https://w.atwiki.jp/pc-help/pages/15.html
Excelパスワード メニューの 「ツール」→「オプション」内の 「セキュリティ」タブ から設定。 忘れると、二度と開けないので要注意です!
https://w.atwiki.jp/restinpiece/pages/35.html
PHPでExcel出力 元ネタ PEARマニュアル http //pear.plus-server.net/package.fileformats.spreadsheet-excel-writer.html 概要 ページの説明 ソースコード見本
https://w.atwiki.jp/cz8686/pages/16.html
[ExcelVBA]BOOKクローズ時に保存しないように OwnBook.Saved = True [ExcelVBA]Excelブックをオブジェクト変数にセット //EXCELVBAブックをオブジェクト変数にセット Set OwnBook = ActiveWorkbook Set DataSheet = OwnBook.Worksheets("data") Set TemplateSheet = OwnBook.Worksheets("template") [ExcelVBA]データシートの行数取得 DataSheetRowCnt = DataSheet.Range("A1").CurrentRegion.Rows.Count [ExcelVBA]テキスト取込み Dim j As Integer Worksheets("Sheet1").Select Open "D \MyDocuments\data.txt" For Input As #1 //変数初期化 i = 0 Do Until EOF(1) Input #1, _ myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11), myBuf(12), myBuf(13), myBuf(14), myBuf(15), myBuf(16), myBuf(17), myBuf(18), myBuf(19), myBuf(20), _ myBuf(21), myBuf(22), myBuf(23), myBuf(24), myBuf(25), myBuf(26), myBuf(27), myBuf(28), myBuf(29), myBuf(30), myBuf(31), myBuf(32), myBuf(33), myBuf(34), myBuf(35), myBuf(36), myBuf(37), myBuf(38), myBuf(39), myBuf(40), _ myBuf(41), myBuf(42), myBuf(43), myBuf(44), myBuf(45), myBuf(46), myBuf(47), myBuf(48), myBuf(49), myBuf(50), myBuf(51), myBuf(52), myBuf(53), myBuf(54), myBuf(55), myBuf(56), myBuf(57), myBuf(58), myBuf(59), myBuf(60), _ myBuf(61), myBuf(62), myBuf(63), myBuf(64), myBuf(65), myBuf(66), myBuf(67), myBuf(68), myBuf(69), myBuf(70), myBuf(71), myBuf(72), myBuf(73), myBuf(74), myBuf(75), myBuf(76), myBuf(77), myBuf(78), myBuf(79), myBuf(80), _ myBuf(81), myBuf(82), myBuf(83), myBuf(84), myBuf(85), myBuf(86), myBuf(87), myBuf(88), myBuf(89), myBuf(90), myBuf(91), myBuf(92), myBuf(93), myBuf(94), myBuf(95), myBuf(96), myBuf(97), myBuf(98), myBuf(99), myBuf(100), _ myBuf(101), myBuf(102), myBuf(103), myBuf(104), myBuf(105), myBuf(106), myBuf(107), myBuf(108), myBuf(109), myBuf(110), myBuf(111), myBuf(112), myBuf(113), myBuf(114), myBuf(115), myBuf(116), myBuf(117), myBuf(118), myBuf(119), myBuf(120), _ myBuf(121), myBuf(122), myBuf(123), myBuf(124), myBuf(125), myBuf(126), myBuf(127), myBuf(128), myBuf(129), myBuf(130), myBuf(131), myBuf(132), myBuf(133), myBuf(134), myBuf(135), myBuf(136), myBuf(137), myBuf(138), myBuf(139), myBuf(140), _ myBuf(141), myBuf(142), myBuf(143), myBuf(144), myBuf(145), myBuf(146), myBuf(147), myBuf(148), myBuf(149), myBuf(150), myBuf(151), myBuf(152), myBuf(153), myBuf(154), myBuf(155), myBuf(156), myBuf(157), myBuf(158), myBuf(159), myBuf(160), _ myBuf(161), myBuf(162), myBuf(163), myBuf(164), myBuf(165), myBuf(166), myBuf(167), myBuf(168), myBuf(169), myBuf(170), myBuf(171), myBuf(172), myBuf(173), myBuf(174), myBuf(175), myBuf(176), myBuf(177), myBuf(178), myBuf(179), myBuf(180), _ myBuf(181), myBuf(182), myBuf(183), myBuf(184), myBuf(185), myBuf(186), myBuf(187), myBuf(188), myBuf(189), myBuf(190), myBuf(191), myBuf(192), myBuf(193), myBuf(194), myBuf(195), myBuf(196), myBuf(197), myBuf(198), myBuf(199), myBuf(200), _ myBuf(201), myBuf(202), myBuf(203), myBuf(204), myBuf(205), myBuf(206), myBuf(207), myBuf(208), myBuf(209), myBuf(210), myBuf(211), myBuf(212), myBuf(213), myBuf(214), myBuf(215), myBuf(216), myBuf(217), myBuf(218), myBuf(219), myBuf(220), _ myBuf(221), myBuf(222), myBuf(223), myBuf(224), myBuf(225), myBuf(226), myBuf(227), myBuf(228), myBuf(229), myBuf(230), myBuf(231), myBuf(232), myBuf(233), myBuf(234), myBuf(235), myBuf(236), myBuf(237), myBuf(238), myBuf(239), myBuf(240), _ myBuf(241), myBuf(242), myBuf(243), myBuf(244), myBuf(245), myBuf(246), myBuf(247), myBuf(248), myBuf(249) i = i + 1 For j = 1 To 249 Cells(i, j) = myBuf(j) Next j Loop Close #1 [ExcelVBA]テキスト出力 Sub outputXML() Dim SaveFilename As String Dim i As Integer Dim DataSheetRowCnt As Integer データ行数取得 DataSheetRowCnt = ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count SaveFilename = Application.GetSaveAsFilename("test", "(*.xml),*.xml", , "結果の保存") SaveFilename = ActiveWorkbook.Path "\" "address.xml" MsgBox SaveFilename vbCr "に出力されました" Open SaveFilename For Output As #1 Print #1, " ?xml version= 1.0 encoding= Shift_JIS ? " Print #1, " ?xml-stylesheet type= text/xsl href= address.xsl ? " Print #1, " 名簿 " For i = 3 To DataSheetRowCnt Print #1, " 連絡先 " Print #1, " 正式名称 "; Cells(i, 1).Value; " /正式名称 " Print #1, " 略称 "; Cells(i, 2).Value; " /略称 " Print #1, " 担当者 "; Cells(i, 3).Value; " /担当者 " Print #1, " 内線 "; Replace(Cells(i, 4).Value, Chr(10), "、"); " /内線 " Print #1, " メールアドレス "; Replace(Cells(i, 5).Value, Chr(10), "、"); " /メールアドレス " Print #1, " 担当システム "; Replace(Cells(i, 6).Value, Chr(10), "、"); " /担当システム " Print #1, " 備考 "; Cells(i, 7).Value; " /備考 " Print #1, " 補足 "; Cells(i, 8).Value; " /補足 " Print #1, " /連絡先 " Next i Print #1, " /名簿 " Close #1 ActiveWorkbook.Save End Sub [ExcelVBA]フォルダ選択ダイアログ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ パブリック変数宣言 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■定数■ /* BrowseForFolder Method Options */ Const BIF_RETURNONLYFSDIRS = H1 // Only return file system directories. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ フォルダ取得ダイアログを表示する (BrowseForFolder関数) 引数 sTitle タイトルの文字列 nOptions 選択オプションの値 sRootFolder 既定フォルダの文字列 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Public Function BrowseForFolder(sTitle As String, nOptions, Optional sRootFolder As String = "") As String Dim oShell As Object Dim oFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, sTitle, nOptions, sRootFolder) If oFolder Is Nothing Then BrowseForFolder = "" Else If oFolder.ParentFolder Is Nothing Then 下位の未選択デスクトップ Dim objWShell As Object WScript.Shell シェルのオブジェクトを作成 Set objWShell = CreateObject("WScript.Shell") デスクトップの場所を返す BrowseForFolder = objWShell.SpecialFolders("Desktop") オブジェクトの解放 Set objWShell = Nothing Else BrowseForFolder = oFolder.Items.Item.Path パスをセットする End If End If Set oFolder = Nothing Set oShell = Nothing End Function sub 呼び出しがわ() dim PUB_SAVE_FOLDER as String PUB_SAVE_FOLDER = BrowseForFolder(mymsg, BIF_RETURNONLYFSDIRS, "") Msgbox PUB_SAVE_FOLDER end sub [ExcelVBA]改行コードの除去 Sub test() Dim value1 As String value1 = Cells(1, 2) value1 = Replace(value1, Chr(10), "") 改行コードの除去 Chr(10)= LF:改行 MsgBox value1 Cells(2, 1) = value1 End Sub [ExcelVBA]全シート選択・プレビュー Dim i As Integer For i = ActiveWorkbook.Worksheets.Count To 1 Step -1 ActiveWorkbook.Worksheets(i).Select fase Next i ActiveWindow.SelectedSheets [Excel関数]色々 ■(例)セル値が○になっているデータの数をカウントする。 =COUNTIF(E4 E25,"○") ■(例)セル値が空欄の数をカウントする。 =COUNTBLANK(E5 E27)
https://w.atwiki.jp/wiki4_mo/pages/20.html
excelなどで 別シートで定義してあるADDRESS関数のための参照先アドレス値が、参照元のセル位置で合っているかどうかを、参照元のセルCELL関数で得た値でチェックするための式 =CELL("ROW",N3)=INDIRECT(" sheet-TXT !"address plugin Error オプションがありません。オプションを記入してください。-QUOTIENT(CELL("ROW",L3)-3,37)-1)*2+QUOTIENT(CELL("ROW",L3)-QUOTIENT(CELL("ROW",L3)-3,37)-3,7),7)) アドレス値の記述セルは 1つ飛び 7個ごと+1セル 37個ごともう+1セル
https://w.atwiki.jp/sas_help/pages/34.html
動的データ交換機能(Dynamic Data Exchange DDE)を利用して、Windows,アプリケーション間で情報を交換する。 SASシステムをクライアントとして、クライアント・アプリケーションがサーバー・アプリケーションに 情報を要求するというかたちのクライアント/サーバ方式を採用している。 構文 options noxwait noxsync; filename fileref DDE アプリケーション名 | トピック オプション ; data _null_; set test; file fileref オプション ; /*データ書き込み*/ infile fileref オプション ; /*データ読み込み*/ put out1 out2 out3 … ; run; DDEトリプレット・・・アプリケーション名 | トピック ※DDEトリプレットは使用するアプリケーションによって変わる。 EXCELファイルのマクロを発行できるようになる。 アプリケーション名:DDEアプリケーションを指定。例)Microsoft Excel→ EXCEL トピック :SASシステムとアプリケーション間のトピック名(ファイル名 or system)を指定 。 例)Microsoft Excel→ SYSTEM <オプション> notab Excelから送られたデータ中のタブをスペースに変換しないようにする。 dlm= 区切り文字を指定。 09 xはタブ文字の16進文字コード。 例) Excel…DLM= 09 x; DSD 区切り文字が2つ連続した場合に欠損値として扱う。デフォルト区切り文字はコンマ。 MISSOVER INPUTステートメントが現在のレコードの終わりに到達した時に 見つからなかった変数値が欠損値として設定される。 lrecl レコード長をバイト単位で指定します。Windowsでのデフォルト値は256。 record-lengthの値は、1~1,048,576(1MB)の範囲で指定できる。 対象となるシートおよび範囲を指定 【構文】 アプリケーション名 | [ファイル名] シート名!開始位置:終了位置 開始位置:終了位置 :セルの範囲をRxxCxx:RxxCxx形式で指定。 例) excel |Tables! R4C1 R1000C5; DDE使用前に指定するオプション optionsステートメント xwait XコマンドでSASシステムから制御した後、再度SASシステムに戻るにはexitを入力する。 noxwait XコマンドでSASシステムから制御した後、自動的に再度SASシステムに戻る。 xsync Xコマンドで開始した処理が終了するまでSASシステムに戻らない。 noxsync Xコマンドで開始した処理の終了を待たずにSASシステムに戻る。 Excelの起動 xステートメント・・・SASシステムからOSコマンドを発行する。 ※ ""(ダブルコーテーション), (シングル)どちらでも起動可能。 半角スペースを含んだパスを指定する際は、そのままでは起動できないため、""でクオートする。 新規にExcelを起動するとき x "start excel"; 既存ファイルを起動するとき x "ファイル名のフルパス"; 例)x " D \My Document\book.xls "; 参考1) %sysexec"start excel"; ※%sysexecは半角スペースを含んだパスでも問題なく動作する。 " "で囲まないと内部コマンド、外部コマンド、操作可能なプログラムまたはバッチファイルとして認識されない。 参考2) [open("ファイル名")] ; 【構文】open (’ファイル名’) オープンするファイルを’’で囲んで指定。 例) [open(" D \My Document\book.xls")] ; 参考3) sleep関数 指定された秒数、SASシステムの実行を停止する。 data _null_ ; rc = sleep(2) ; run; Excelセルの操作 /*シートをアクティブにする*/ 【構文】 [workbook.activate("シート名")] ; 範囲 選択するセル、またはセル範囲を指定。 相対参照:アクティブセルを基準に相対参照を指定する。 外部参照:直接セルの範囲を指定。 アクティブセル アクティブセルにするセルを指定。 ※連続していないセルを選択するには、,(カンマ)で区切って指定。 例) [select("R[0]Cxx R[0]Cxx")] ; [select("RxxCxx RxxCxx")] ; [select("R1C1 R2C2,R8C1 R6C3")] ; ページ設定 【構文】 [page.setup( ヘッダー , フッター , 左余白 , 右余白 , 上余白 , 下余白 , 行列番号印刷 , 枠線印刷 , 中央水平 , 中央垂直 , 用紙方向 , 用紙サイズ , 拡大縮小 , ページ番号 , 印刷方向 , 白黒印刷 )] ヘッダー ファイルのヘッダーに使う文字列と構文を指定。 フッター ファイルのフッターに使う文字と構文を指定。 左右上下余白 ページの余白の値を指定。単位はインチ。 行列番号印刷 枠線印刷 中央水平 中央垂直 用紙方向 1 縦 2 横 用紙サイズ 1-26を指定。 5 A3 9 A4 11 A5 12 B4 13 B5 拡大縮小 %で指定。 ページ番号 先頭のページ番号指定。 印刷方向 方向を指定。 1 上から下へ改ページし、下端で右へ移動。 2 左から右へ改ページし、右端で下へ移動。 白黒印刷 true 背景色白 false セルのパターンが印刷される タイトル設定 [set.print.tite("","")] ; 【構文】 [set.print.tites(" 列タイトル "," 行タイトル ")] ; フォント設定 /*フォント設定1*/ [format.font("MSゴシック",9,true,true,true,true5)] ; 【構文】 [format.font(" フォント ", サイズ , ボールド , イタリック , 下線 , 打ち消し線 , 色 )] /*フォント設定2*/ [font.properties(,,,,true)] ; 【構文】 [font.properties(" フォント ", スタイル , サイズ , 取り消し線 , 上付き , 下付き , 袋文字 , 影付き文字 , 下線 , 色 , 標準フォント , 背景 , 文字番号 , 文字数 )] ; 表示形式の設定 【構文】 [format.number("@")] ; 全てのセルの表示形式を文字列に設定する。 format.numberを指定しない場合、セルは数値タイプになる。 セルの高さ/幅を変更 [row.height(9)] ; [column.width(20,,false,3)] ; 【構文】 [row.height( 高さ(幅) , 範囲 , 標準 , 種類 )] 標準 true 標準の高さ(標準の幅) 範囲 RxxCxx:RxxCxx形式で指定。 種類 1 非表示 2 再表示 3 最適値 セル内容の配置を指定 [alignment(3,false,2,0,false)] ; 【構文】 [alignment( 横位置 , 全文字表示 , 縦位置 , 文字方向 )] 横位置 1 標準 2 左詰 3 中央 4 右詰 5 繰り返し 6 両端揃え 7 選択範囲で中央 8 均等 全文字表示 true セルの幅にあわせて全文字列をセル内に表示(折り返し表示)。 falseまたは省略 折り返し表示を行わない。 縦位置 1 上詰 2 中央 3 下詰 4 両端揃え 5:均等 文字方向 0 横書き 1 縦書き 2 下から上への横書き 3 上から下への横書き 罫線の設定 [border(,,,7,7)] 【構文】 [border( 外枠 , 左 , 右 , 上 , 下 , 網掛け , 外枠色 , 左色 , 右色 , 上色 , 下色 )] ; 外枠 , 左 , 右 , 上 , 下 0 なし 1 実線 2 太線 3 破線 4 点線 5 極太線 6 二重線 7 細線 網掛け true 網掛けする。 falseまたは省略 網掛けしない。 色 色を1-16で指定。 手動改ページ・解除 【構文】 [set.page.break()] ; [remove.page.break()] ; マクロの実行 【構文】 [run("マクロ名")] ; ファイルの保管 【構文】 [close()] ; [close("true")] :ファイルを保管する。 [close("false")] :ファイルを保管しない。 [close()] :ファイルが変更されていればメッセージを出力する。 保存 [save.as("D \xxxxxxxxxx.xls")] ; 【構文】 [save.()] ; 現在のファイル名で保存。 [save.as(" ファイル名 ", ファイル形式 , 読み取りパスワード , バックアップ , 書き込みパスワード , 読み取り専用 )] ; ファイル名 ファイル名を指定。 ファイル形式 省略すると標準になる。 読み取りパスワード 半角パスワードを で囲んで指定。 バックアップ バックアップファイルを作成する。(true or false) 書き込みパスワード 半角パスワードを で囲んで指定。 読み取り専用 (true or false) 終了 【構文】 [quit()] ; Excelを終了して、オープンしているファイルをクローズする。