ゲーム攻略・無料ウィキレンタルのアットウィキ (@WIKI)

https://w.atwiki.jp/baraki/pages/14.html

AppletでExcelみたいなセル操作をするとりあえずJTable package applet; import javax.swing.JFrame; import javax.swing.JTable; public class JtableTest extends JFrame{ public static void main(String args[]){ JtableTest me = new JtableTest(); me.init(); } private void init(){ //* コンポーネント登録 *// setDefaultComponent(); //* サイズ設定（適当） *// setSize(300,300); setVisible(true); } private void setDefaultComponent(){ JTable table = new JTable(3, 5); // 3×5のJTable add(table);// 登録 } } コピペしたい java.policyが必要かと思ったけど、ローカルでのアプレット実行なので必要なし。 ※HTMLからOBJECTタグとかでアプレットを実行していないのが理由。

c0metssd @ ウィキ - excelからDDLを作成するマクロ例

https://w.atwiki.jp/c0metssd/pages/81.html

V2：テーブル名 V1：テーブル名コメント C5からフィールド C5：カラムコメント J5：物理名 R5：データ型 U5：長さ W5：PK X5：NN Y5：UQ Z5：FK Option Explicit Const ownerName = "postgres" Function CreateTable(saveName) Dim Str As String Str = "" Dim tableName As String tableName = Range("V2").Value Dim fields As String fields = "" Dim alters As String alters = "" Dim lineNo As Integer lineNo = 6 Dim pkey pkey = "" Do Dim nn As String If StrComp("○", Range("X" lineNo).Value) = 0 Then nn = " NOT NULL" ElseIf StrComp("", Range("X" lineNo).Value) 0 Then MsgBox "セル(X" lineNo ")に想定外の文字が指定されています：" Range("X" lineNo).Value Exit Function Else nn = "" End If Dim dtype As String Dim tVal As String tVal = Range("R" lineNo).Value If StrComp("varchar(n)", tVal) = 0 Then Dim dlen As String dlen = Range("U" lineNo).Value If dlen = "" Then MsgBox "varchar(n)に長さが指定されていません" Exit Function End If dtype = "character varying(" dlen ")" ElseIf StrComp("serial", tVal) = 0 Then dtype = tVal ElseIf StrComp("boolean", tVal) = 0 Then dtype = tVal ElseIf StrComp("int", tVal) = 0 Then dtype = "integer" ElseIf StrComp("timestamp", tVal) = 0 Then dtype = "timestamp with time zone" ElseIf StrComp("smallint", tVal) = 0 Then dtype = tVal ElseIf StrComp("time", tVal) = 0 Then dtype = "time with time zone" ElseIf StrComp("date", tVal) = 0 Then dtype = tVal ElseIf StrComp("text", tVal) = 0 Then dtype = tVal ElseIf StrComp("bytea", tVal) = 0 Then dtype = tVal Else MsgBox "Unknown Data Type " tVal Exit Function End If If Len(fields) 0 Then fields = fields "," End If Dim ColumnName As String ColumnName = Range("J" lineNo).Value fields = fields " " ColumnName " " dtype nn vbNewLine Primary Key If StrComp("○", Range("W" lineNo).Value) = 0 Then If Len(pkey) 0 Then pkey = pkey "," End If pkey = pkey ColumnName ElseIf StrComp("", Range("W" lineNo).Value) 0 Then MsgBox "セル(W" lineNo ")に想定外の文字が指定されています：" Range("W" lineNo).Value Exit Function End If Unique If StrComp("○", Range("Y" lineNo).Value) = 0 Then alters = alters "ALTER TABLE ONLY " tableName " ADD CONSTRAINT m_" tableName "_" ColumnName "_uq UNIQUE (" ColumnName ");" vbNewLine ElseIf StrComp("", Range("Y" lineNo).Value) 0 Then MsgBox "セル(Y" lineNo ")に想定外の文字が指定されています：" Range("Y" lineNo).Value Exit Function End If Dim fkWork fkWork = Range("Z" lineNo).Value fkWork = Replace(fkWork, vbTab, "") If fkWork "" Then Dim arr As Variant arr = Split(fkWork, ".") If UBound(arr) 1 Then MsgBox "FKの指定が間違えています " Range("Z" lineNo).Value Exit Function End If Dim colName colName = Application.WorksheetFunction.VLookup(arr(1), Sheets(arr(0)).Range("C6 Z30"), 8, False) Dim tblName tblName = Sheets(arr(0)).Range("V2").Value FKの設定 alters = alters "ALTER TABLE ONLY " tableName " ADD CONSTRAINT fk_" tableName "_" ColumnName " FOREIGN KEY (" ColumnName ") REFERENCES " tblName "(" colName ");" vbNewLine End If カラムのコメント alters = alters "COMMENT ON COLUMN " tableName "." ColumnName " IS " Range("C" lineNo).Value " ;" vbNewLine lineNo = lineNo + 1 Loop While Range("C" lineNo).Value "" テーブルのコメント If Len(pkey) 0 Then alters = alters "ALTER TABLE ONLY " tableName " ADD CONSTRAINT m_" tableName "_pkey PRIMARY KEY (" pkey ");" vbNewLine End If alters = alters "COMMENT ON TABLE " tableName " IS " Range("V1").Value " ;" vbNewLine alters = alters "ALTER TABLE public." tableName " OWNER TO " ownerName ";" vbNewLine くっつける Str = Str "--- テーブル「" tableName "」" vbNewLine Str = Str "CREATE TABLE " tableName " (" vbNewLine Str = Str fields Str = Str ");" vbNewLine Str = Str alters vbNewLine 戻す CreateTable = Str End Function Function SetSaveDir() *** 保存するパスの設定 Dim myPath As String フォルダパス Dim ShellApp As Object Dim oFolder As Object Set ShellApp = CreateObject("Shell.Application") Set oFolder = ShellApp.BrowseForFolder(0, "フォルダ選択", 1) If oFolder Is Nothing Then Exit Function On Error Resume Next myPath = oFolder.Items.Item.Path If Err.Number = 91 Then デスクトップが選択された場合は、直接取得する myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") Err.Clear End If If Dir(myPath, vbDirectory) = "" Then MsgBox "保存するフォルダがありません。保存フォルダ： " myPath Exit Function End If On Error GoTo 0 SetSaveDir = myPath End Function Sub FileWrite(saveName, data) Const adTypeText = 2 出力するためのConst Const adSaveCreateOverWrite = 2 出力するためのConst Const adWriteLine = 1 Dim mySrm As Object Set mySrm = CreateObject("ADODB.Stream") With mySrm *** UTF-8で出力するためのADOを読み込み　start .Open .Type = adTypeText .Charset = "UTF-8" *** UTF-8で出力するためのADOを読み込み　End オブジェクトの内容をファイルに保存 .WriteText data, adWriteLine .SaveToFile (saveName), adSaveCreateOverWrite オブジェクトを閉じる .Close End With メモリからオブジェクトを削除する Set mySrm = Nothing End Sub Private Sub DDL作成_Click() Dim saveName Dim saveDir saveDir = SetSaveDir() If Len(saveDir) = 0 Then Exit Sub End If saveName = saveDir "\hoge.sql" Dim sqlStr As String sqlStr = "" Sheets("テーブル一覧").Select 描画停止 Application.ScreenUpdating = False Do ActiveSheet.Next.Activate sqlStr = sqlStr CreateTable(saveName) Loop While ActiveSheet.Name Sheets(Sheets.Count).Name 最後のシートまでファイルに出力する Call FileWrite(saveName, sqlStr) 描画開始 Application.ScreenUpdating = True MsgBox "処理が終了しました" End Sub 2014/8/15

被災地の子どもたちに届けたい本 @ ウィキ - BL1&2 Excel版3月登録分

https://w.atwiki.jp/slls/pages/25.html

これまでに登録された本の一部をまとめました　3月中に登録された本をまとめたブックリスト１BL1 安らぎを求めてとブックリスト２BL2 楽しく元気にを Excel にまとめました。ダウンロードしてお使いになれます。　このページの最下部（広告の下）に添付ファイルが提示されています。ご注意ください。

経済統計練習帳 - excel ov

https://w.atwiki.jp/javadsge/pages/7956.html

function myFunction() {   var doc = DocumentApp.openById( 1GZ6ht9md7gwRTtmGBjILn0wfiKdT7vHM7Cet_2zOVOk ); doc.appendParagraph( date ABC /date );     doc.saveAndClose();   }  

天クロ - 広島 @ ウィキ - 天クロ

https://w.atwiki.jp/tenkuro/

天クロ用のデッキ研究ツール公開（Excelマクロ版）　by広島県人ページ下方の添付ファイルです。ダウンロードはパソコンからどうぞ。使い方を読んでご使用ください。 Microsoft Excel 2007 以降のバージョンが必要です。（ただし、Microsoft Excel 2007以外での動作確認はしていません）不具合あるかもしれませんm(_ _)m 天クロ引退気味なので、今後更新はしないと思います。

ONE★PIECE　＠ウィキ - マクロ表

https://w.atwiki.jp/one2/pages/15.html

マクロとは、F1～F5をFEZ内の1~5ページに登録しておくことにより CTRLをコロコロ変えるだけで、文章を打たないでも5×5の25文章登録をしておけるシステムである。初心者の方には、下記のマクロをオススメしたい。登録した後に、メンバーをさそい訓練場にてマクロ練習をしてみるといい。【１ページ目】 F1 /a pos 敵ナイト発見発言数=発見数　　　　　　　　 F2 /a pos 敵ジャイ発見発言数=発見数 F3 /a pos 敵レイス発見 F4 /a pos 敵ドラゴン発見発言数=発見数 F5 /a pos ★★★敵キマイラ発見★★★ 【２ページ目】 F1 /a pos 輸送中！！ 2連呼=徒歩輸送 F2 /as クリ渡しますor貰います cry /50 F3 /a pos オベ建てます 2連呼=エク F4 F5 /a pos 援軍要請！！発言数×2=人数差【３ページ目】 F1 /a pos より　味方 msm 　出ます！！ F2 /a pos 味方 msm HP hp PW pw F3 /as 闇撒きます　PW pw F4 /as 闇撒いてます　PW pw F5 /as 闇終了　PW pw

Excel4.0関数help - ERROR.TYPE

https://w.atwiki.jp/kojiro/pages/80.html

Excelのエラー値に対応する数値 ERROR.TYPE(セル参照) セル参照評価するエラー値のあるセル参照を指定。エラー値戻り値意味 #NULL! 1 #DIV/0! 2 割り算で0 を指定した時 #VALUE! 3 Excel が計算できない答になった時 #REF! 4 参照元が不明になった時 #NAME? 5 参照している名前がわからない時 #NUM! 6 #N/A 7 その他 #N/A セル参照が空白の時

LineageⅡ　ＰＴスキル向上Ｗｉｋｉ（未公開） - マクロ

https://w.atwiki.jp/gppp/pages/27.html

マクロのページ

マクロ鯖＠wiki - マクロFH国辞典

https://w.atwiki.jp/makurosex/pages/29.html

●第一期戦争　国々の詳細 ●第二期戦争　国々の詳細 ●第三期戦争　国々の詳細

@鯖味噌缶 - Excel編

https://w.atwiki.jp/parepan/pages/101.html

一覧表の背景色をストライプにするプルダウン選択を使うにはシートに別シートの内容を貼り付ける --カメラ機能--