2010-06-01から1ヶ月間の記事一覧

タブストップ・移動順の変更

タブストップを「いいえ」に設定 「タブオーダー」から指定

クロス集計

行列の入れ替え 月別・商品別集計表など「クロス集計ウィザード」でカンタンに設定できます 行見出し、列見出しを指定

ピボットテーブル

クロス集計で対応できない高度な集計・分析を行いたい場合に使用以下の項目をフィールドリストからD&Dで指定できます ・フィルターを設定するフィールド ・行のフィールド ・列のフィールドピボットグラフビューで集計結果をグラフ化も出来る

条件によりROUNDUP/ROUNDDOWN動作を切り替える

Private Sub btnCal1_Click() For rc = 8 To 12 cell_case = "I" & rc cell_result = "J" & rc cell1 = "C" & rc cell2 = "D" & rc cell1_x_cell2 = cell1 & "*" & cell2 cal_rule = Range(cell_case).Value Select Case cal_rule Case "切捨" Range(cell_re…

Functionオブジェクト自身を参照

arguments.callee がそのFunctionオブジェクト自身を参照します。 arguments.callee.toString() などして あとは文字列操作で切り出せばよいNetscapeだとFunctionオブジェクトにnameプロパティがあり arguments.callee.name でその関数名を取得できます。

PEAR::HTML_AJAXサンプル

<html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja"> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> </meta></head></html>

名前付き引数

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

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

ユニークな配列に整形

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

Dumper

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

while/ハッシュ配列を走査

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

HTML_AJAX インストールとサンプル

PHP

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,…

テーブル設計MySQLからSQLサーバーへの移行

データ型の変更 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 ・・・シート上のセルと同期することが出来る

VLOOKUP

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

 シートを検索する

 セルアドレスを取得する

ActiveCell.Row & " " & ActiveCell.Column

Criteriaで年検索フィルター

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:=…

Criteriaであいまい検索

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