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 & " 対象年月は6桁で指定してください" 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…
オートナンバーの開始値を指定する クエリで主キーを指定するINSERT文を投入する 追加貼り付け 追加クエリを使用せずにテーブル間でデータをコピーできます テーブル一覧うを取得する -- Application.CurrentData.AllTables.Count 総数 -- AllTables(index).…
エクスポート マクロの整理・強化 マクロのグループ化 リード専用で開く コマンドラインオプション Insertクエリを実行して読み取り専用であることを 多対多の結合を実現する 閉じるときに最適化で増大を回避する
行ごとのスタイル指定 ショートカット Autokeys リレーションシップ 連鎖更新 1対多 参照整合性
いくつか調べてみた (参考図書)Access Hacks
XML読み込み Dim objDOM, rtResult Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.load("Sample.xml") If rtResult = True Then procDispDatas objDOM.childNodes End If Set objDOM = Nothing Sub procDispDatas(objNode) Di…
消費税0: [合計]*[消費税フラグ] 切捨て:Int(a) 消費税1: Int([合計]*[消費税フラグ]) 四捨五入:Round(a , b) Round([合計]*[消費税フラグ]) 切り上げ:Round(a+c, b) :四捨五入だけど、0.5を足して強制切上させる。 Round([合計]*[消費税フラグ]+0.5)
keys1 = [ 'key1', 'key2','key3'] data1 = [ {:title => 'title1', :note=> 'note1'}, {:title => 'title2', :note=> 'note2'}, {:title => 'title3', :note=> 'note3'} ] 読み上げる data1.each {|d| puts d[:title] + ", "+ d[:note] }
PHP・Perl共通 string quotemeta ( string $str ) 文字列 str について、 . \ + * ? [ ^ ] ( $ ) の前にバックスラッシュ文字 (\) でクォートして返します。
filename:funcs.js **************************************** さまざまなブラウザに対応させる為の それぞれのラッパー関数 **************************************** //getkcode //getkchar //xmlhttpオブジェクトの取得 function getHttpObject(){ var x…
UPDATE Tableスタッフ名簿M SET ジタクトドウフケン='トウキョウト' WHERE ((Tableスタッフ名簿M.ジタクトドウフケン) Is Null) AND ((Tableスタッフ名簿M.自宅都道府県)="東京都");
/** * * parameter obj:SELECTのid */ function getText(obj){ var text = obj.options[obj.selectedIndex].text; window.alert("貴方は「" + text + "」に変更しました"); }
Private Sub lbox契約管理書_init() ' 列数を指定 lbox契約管理書.ColumnCount = 3 ' 列幅を指定 lbox契約管理書.ColumnWidths = "60;80;80" '最終行取得 lastRow = Worksheets("マスタコード").Range("L2").End(xlDown).Row With Worksheets("マスタコード"…
Index = lbox契約管理書.ListIndex If Index > 0 Then list_title = lbox契約管理書.List(Index, 1) Else list_title = "未指定" End If
該当するテーブルを開き、列を選択します 「インデクス:」 はい (重複なし) に指定します
現在、以下のWikiを利用しています Fc2Wiki http://cowbell.wiki.fc2.com/ Googleサイト http://sites.google.com/site/kenzoo1971/
CGIアプリケーションの頻出機能一考 ログイン認証 セッション クッキー アップロード ダウンロード = Javascript=ビュー 一覧 カレンダー 週間
ボタンクリック等の起動イベント検知 AJAXリクエスト(フォームをPOST送信) サーバー側メソッド バリデーション実行 バリデーションエラーのときはメッセージングし終了 更新処理実行 更新処理行数を返却(通常1が返る) 返り値が1以外のとき実行エラー。メ…
#!/usr/bin/perl use Net::SMTP; use MIME::Entity; # Settings our $SENDER = "kotaka\@yourdomain.co.jp"; our $RECIPIENT = "kotaka\@yourdomain.co.jp"; our $smtp_srv = "192.168.1.254"; our $smtp_domain = "yourdomain.co.jp"; our $SUBJECT = "back…