おっ -3ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

おっ

ExcelやらAccessやらメモメモ

ブログトップ
記事一覧
画像一覧
動画一覧

前ページ
次ページ

26Feb
- 右に寄せるには？
  Accessのサブフォームやリストボックスで％や￥表示をした時に左寄せ（左に寄る）になってしまう数字なので右寄せがいいのにどうすりゃいい？？そんなときはformat$　と　@　を使って無理やり右に寄せるのです。@の数だけ右に寄ります、@1個分でどれだけ右によるかは知らないのでたくさんつけるといいよ。クエリではformat$(format$(f1,'0.0%'),'@@@@@@@@@@@@@@@@@@@@')SQL文ではselect format$(format$(f1,'0.0%'),'@@@@@@@@@@@@@@@@@@@@') from tbl_1※f1＝フィールド名
21Feb
- ラベルなどの幅を指定する単位（twip）
  Accessのフォームで、ラベルなどの幅を指定するとき、フォームのプロパティでは数値だけを入れるとcmになりますが、VBAで指定するときにはtwip指定となるようです。1cm＝567twipなので、それで変換する必要があるようです。何に使うかって？お手製の進捗バーを作るときに使ったわけです。。
19Feb
- リストから重複するデータをはぶいた件数（個数）をカウントする
  名前など、重複のあるデータリストからその重複をはぶいた件数、いわゆるユニーク数をカウントするにはどうするか？□　１．　ピボットテーブルを作って数える□　２．　SUMPRODUCTとCOUNTIFのあわせワザ□　３．　COUNTIFのみでいくこの３つくらいあればだいたいシノゲル。１．　は書いたそのまんまなので飛ばすとして先ずは　２．　SUMPRODUCTとCOUNTIFのあわせワザこんな感じ↓の重複したデータから重複しない件数をカウントするには、、下の図のまんま、です。=SUMPRODUCT(1/COUNTIF(A2:A11,A2:A11))COUNTIFで数を数えてSUMPRODUCTで配列の積を求める。この前の記事でチョッと書いた関数。つぎ、　３．　COUNTIFのみでいくこれの場合は　計算用の列を追加です。ここではB列。COUNTIFで検索する行までのリストにその行のデータが何個あるか、をカウントします。なのでスタート地点は固定。A4セルを例にあげると=COUNTIF($A$2:A4,A4)$A$2　←この$マーク大事（固定化する記号、これで片側はA2から動かなくなる。A2からA4セルまででA4セルにある文字　（ここでは「重複3」）　が何個あるかをカウントしてるので、ここの数字が2以上になった場合は重複していることになる。なので、最後に　B列の　1　の数をカウントすればユニーク数がでる、ということ。　-----■　参考　■-----ピボットで複数ある列の重複リストをユニークに重複しないリストをつくる
- 加重平均を計算する、ひとつのセルで
  Excelで計算用の行を新たに追加することなく加重平均を計算するにはこんな感じ↓（C9セル）　←これSUMPRODUCT　関数を利用すると便利。単純に考えると、商品1～6の合計から平均単価を算出するときには=(10*100+5*110*3*120+15*130+3*140+9*150)/(10+5+3+15+3+9)とすればよいわけだが、商品数が100を超える、など膨大な数量になったときにシンドイ。それぞれの合計値を計算するフィールドをD列につくり、最後に縦計を計算するのもよいのだが、シートのつくりの問題でそれが難しい（レイアウトが崩れるとか）場合には、SUMPRODUCTをつかうといい。式は=SUMPRODUCT(B2:B7,C2:C7)これで商品1から商品6までの総合計が計算できる。=SUM(B2:B7)これで商品1から商品6までの合計個数が計算できる。なので、=SUMPRODUCT(B2:B7,C2:C7)/SUM(B2:B7)とすればよい。
16Feb
- 関数で簡易バーグラフを作る
  関数で簡易バーグラフを作るRept関数を使用します。=Rept(文字列,繰り返す回数）出来上がりはこんな感じ。で、数式はこんな感じ。（C4セル）B列の数字の回数だけ｜を繰り返し表示してます。長くなりすぎる時は、=Rept("|",B4)*0.5　とかしてリピート回数の比率を調整すればOK。あんま役に立たないけど、ざっとどんな山谷があるかを見るときに便利。画像はGoogle DocsのSpreadsheetだけど、Microsoft Excelでも同じ。というかGoogle DocsのSpreadsheetがExcelと同じなのかな？！
15Feb
- 長さ0の文字列をNull値に変換する
  データを追加するときに長さ0の文字列でエラーがでるときに。。とりあえず動く。Public　Function　bn(txtBlank　As　Variant)　As　Variant'　長さ0の文字列をNull値に変換　If　txtBlank　=　""　Or　IsNull(txtBlank)　Then　　bn　=　Null　Else　　bn　=　txtBlank　End　IfEnd　Function
07Feb
- サブフォームのデータを更新するフォームを作る（クロス集計）
  サブフォームのデータを条件により更新するフォームを作ってみた・・・Dim cat As New ADOX.CatalogDim cmd As New ADODB.CommandDim obj As AccessObjectDim sql As Stringcat.ActiveConnection = CurrentProject.Connection　For Each obj In CurrentData.AllQueries　　If obj.Name = "tmp" Then　　　cat.Views.Delete "tmp"　　　Exit For　　End If　Next（中略）①　sql = "select * from database1" （中略）　cmd.CommandText = sql　cat.Views.Append "tmp", cmd　subform1.SourceObject = "query.tmp"Set cat = Nothingという風に、元のクエリを削除→クエリを作成でつくってみた。なんか無駄な動作が多いと思いつつもしろうとの手習い状態なわけで、これ以外思いつかんかった・・・。そしてなんか動いた。。select文は。ところが、クロス集計クエリを作ろうとしたらしょっぱなのクエリ削除でエラー・・・。なんのエラーかわからない、というか理解できないけど削除できない。。。ちなみに①のsql文を↓こんな感じに。（クエリに直貼りしたら動く）②　sql = "transform sum(f1) as f select f2 from tbl1 group by f2 pivot f3"調べてみると、クロス集計クエリはViewsコレクションに含まれないらしいですよ。なので削除でエラーが発生した、と。途方にくれつつ、大したことではなかったので放って置くことにしたのだが、ふと？そもそも削除しなけりゃいいんじゃん。という・・・で、一切合切を捨て去り、こんな感じ。CurrentDb.QueryDefs("tmp").sql = sqlMe.subform1.SourceObject = "query.tmp"最初のと比べるとかなりスッキリ、というかなんで削除なんだ、と。これでクロス集計もＯＫ（たぶん）
06Feb
- 自分のツールバーをつくる
  Excelに自作のツールバーを作ってみる。アドインにして読み込めばできあがり。Sub Auto_Add()Dim myCB As CommandBarDim myCBCtrl As CommandBarButton'Personalがツールバーの名前Set myCB = CommandBars.Add(Name:="Personal")'(ボタンを増やす場合はコピーして使えばOK！)'1つ目のボタンの作成Set myCBCtrl = myCB.Controls.Add(Type:=msoControlButton)With myCBCtrl.Caption = "SelectDialogShow"　'マウスあてた時に表示するヒントテキスト.FaceId = 176　'ツールバーに表示するボタンアイコンの番号.OnAction = "SelectDialogShow"　'実行するプロシージャ（下のやつ）End With'ツールバーの表示With Application.CommandBars("Personal").Visible = True.Position = msoBarTopEnd WithEnd SubSub SelectDialogShow()'選択オプションを表示するOn Error Resume NextApplication.Dialogs(xlDialogSelectSpecial).ShowEnd SubExcelのダイアログボックス定数一覧はこちら。なんか見にくい。。http://support.microsoft.com/default.aspx?scid=kb;ja;401646
05Feb
- テーブルのフィールドリストの取得
  Public Function t_main_ColName()Dim cat As New ADOX.CatalogDim tb As ADOX.TableDim col As ADOX.ColumnDim valFldName As Variantcat.ActiveConnection = CurrentProject.ConnectionSet tb = cat.Tables![テーブル1]For Each col In tb.ColumnsvalFldName = valFldName + col.Name + ";"Next colt_main_ColName = valFldNameEnd Function

前ページ
次ページ

ブログトップ
記事一覧
画像一覧

Copyright © CyberAgent, Inc. All Rights Reserved.

スパムを報告
お問い合わせ
利用規約
アクセスデータの利用
特定商取引法に基づく表記
ヘルプ