名前付き引数を使用すると、関数に引数を渡すときに、 その位置ではなく名前を使って引数を渡すことができるようになる。この名前は単純な文字列である。 3つの (名前付き引数に対して) 位置固定引数 (その内1つは省略可能) と 4つの名前付き引数を持つ関数…

書籍まとめ Ajax On Rails/勉強会レポート いまのところ別記としています。punch-noteを参照してください

#!c:/perl/bin/perl #------------------------------------------------------- # ここにデータを貼り付けてください #------------------------------------------------------- $data =<

use strict; use warnings; use Data::Dumper; <---- ここ！ %p={･･･}; print Dumper(\%p); #リファレンスを渡す！

while ( my ($key, $value) = each(% { $user1->{labels} }) ) { $buffer->{ "form_label_" . $key} = $value ; }

Pearでインストール %>pear install html_ajax-0.5.6WARNING: channel "pear.php.net" has updated its protocols, use "pear channel-update pear.php.net" to update downloading HTML_AJAX-0.5.6.tgz ... Starting to download HTML_AJAX-0.5.6.tgz (139,…

データ型の変更 int(*) -> intに変換 tinyint(*) -> intに変換 int(1) -> bitに変換 int NOT NULL auto_increment -> uniqueidentifier date -> datetimeに変換 秀丸 MySQLからSQLServerに変換するマクロに用意しておくと便利です 正規表現 \) TYPE=MyISAM.*…

BACKUP DATABASE staffDB2010 TO DISK="C:\backup\staffDB2010.backup"

クエリーに以下のフィールドを用意して、抽出条件をTrueとします。 ※[検索文字列]の部分がパラメータとなります。 フィールド IIf(IsNull(InStr([Mailアドレス], "@")) Or InStr([Mailアドレス], "@")=0, False, IIf(StrComp(Mid([Mailアドレス], InStr([Mai…

ユーザー グループアカウント ワークグループ･･･グループアカウントの集まりツール >セキュリティ >ユーザー・グループのアカウント

初期選択状態の指定 InStr関数を使用しています 'strInstsの初期状態で「[野球][音楽]」などの様式の文字列 For i = 0 To lbxInsts.ListCount - 1 'リストボックスの0行から最終行まで反復処理 strTemp = "[" & lbxInsts.List(i, 1) & "]" lbxInsts.Selected…

ユーザー グループアカウント ワークグループ･･･グループアカウントの集まり ユーザーホームページ一考

Sub encode_changer() Dim Filename_s As String Dim Filename_u As String Filename_s = "D:\www\public\cgi-tx\doc\sjis_file.txt" Filename_u = "D:\www\public\cgi-tx\doc\utf_8_file.txt" 'ShiftJis_to_utf8 "shift-jis", "utf-8", Filename_s, Filenam…

Public Sub 連想配列の定義() Dim sheet_clt As String sheet_clt = "クライアント" Dim i As Long Set dicT = CreateObject("Scripting.Dictionary") ' For i = 1 To 20 ReDim Preserve list_clt_id(i) ReDim Preserve list_clt_name(i) list_clt_id(i) = W…

Const cnsADO_CONNECT2 = "D:\www\public\cgi-tx\doc\vba\掲示板.mdb;"

ActiveCell.FormulaR1C1 = "最終商談日" ActiveCell.Characters(1, 2).PhoneticCharacters = "サイシュウ" ActiveCell.Characters(3, 2).PhoneticCharacters = "ショウダン" ActiveCell.Characters(5, 1).PhoneticCharacters = "ビ"

「書式」メニュー→「条件付き書式」 行ごとに背景色を変える 以下を条件式に適用します。 ROWで行番号を取得し、MODで剰余を算出しその結果で背景色を切り替えます =MOD(ROW(),2)

LinkedCell ･･･シート上のセルと同期することが出来る

検索結果を表示したいにセル次の式を入力します 対応行の列情報を取得できます D11セルの値に対応する第３列のデータを取得します =VLOOKUP(D11,クライアント!I2:L100,3,FALSE) 書式： VLOOKUP（検索値，範囲，取り出したいデータの列番号，検索の型） 検索…

ActiveCell.Row & " " & ActiveCell.Column

Fieldは列番号です Selection.AutoFilter でAND条件検索します Criteria1/Criteria2で範囲を指定します Sub 年数フィルター(year As Integer) If IsNull(year) Or year <= 0 Then Selection.AutoFilter Field:=4 Exit Sub Else Selection.AutoFilter Field:=…

列番号:3を指定します Sub 性別フィルタ_女性() Selection.AutoFilter Field:=3, Criteria1:="=女", Operator:=xlAnd End Sub Sub 性別フィルタ_男性() Selection.AutoFilter Field:=3, Criteria1:="=男", Operator:=xlAnd End Sub Sub 全ての性別() Selecti…

スピンボタン スピンボタンの値をID指定セルの値と同期するために シート変更イベント「Worksheet_Change」を監視 Private Sub SpinButton1_Change() Sheets("明細書印刷用").Range("A10").Value = SpinButton1.Value End Sub ' スピンボタンの値をID指定セ…

文字列幅のチェック Dim strYearMonth As String strYearMonth = Sheets("データ設定").Range("C11") If Len(strYearMonth) = 6 Then 'MsgBox strYearMonth & " " & Len(strYearMonth) Else MsgBox strYearMonth & " 対象年月は６桁で指定してください" Exit…

show FORM hide FORM unload FORM Range Range("B" & x_id).Value = Me.txtTitle.Text Cell

頻出なのがシート「明細書一覧」のA1セルを参照するという場合 =明細書一覧!A1 セル「A1固定」ではなく 動的に変更した場合がある たとえば「X4のセル参照先のアドレスを記入しておく」 その場合は以下の書き方「INDIRECT」関数を使う。 =INDIRECT("明細書一…

全てクリアするには「Clearメソッド」、 追加には「AddItemメソッド」を使う。 Me.cbx顧客企業名.Clear 'もっとかっこよくしたい 'max_rows = Worksheets("クライアント").Range("I" & Rows.Count).End(xlUp) '「マスターデータ」シートのI2〜I100を引用 For…