2007年7月15日日曜日

第21回目 これまでのテクニックの整理(第11回以降)

○第21回目 これまでのテクニックの整理(第11回以降)

◎第20回目
□置換え
Range("X15:X18").Select
Selection.Replace What:="*61*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
□指定した範囲の座標
AAA = Selection.Address   '実行前に指定した範囲の座標がここに入る

◎第19回目
□文字列の加工
  =LEFT(B67,9) & B66 $ RIGHT(B67,6)
   xxx=sum(b7:b$60) を 
   xxx=sum(b  :b$60)に分けるのです
    ↑ ↑
     9  右から6文字目

◎第17回目
□"1-56のカラーコード"、または"カラーパレットのインデックス番号"
  http://www.geocities.jp/ogawa7a/sheets_14.html#color
□余り  a1=(i mod 3)
□商   a2=(i \ 3)
□  7.GoToステートメント
 http://excelvba.pc-users.net/fol6/6_7.html

◎第16回目
□色の設定は、
Cells(a, b).Interior.ColorIndex = 13   '1-56のカラーコード
 または
Cells(a, b).Interior.Color = RGB(255,0,0)  '赤明度、緑明度、青明度

◎第14回目
□セルの使い方
 if cells(4,3+j) = ii then  

◎第13回目
[免責事項]
 このブログに掲載するマクロを使用した際に不具合が生じても、筆者がその責任を負うことはありません。
 また、紹介するマクロ等に関しても同様です。
 あくまで自己責任でご利用ください。
 この旨は、第1回目にも追記しました。
 
◎第12回目
□配列変数の定義
 Dim mm(8,8)

◎第11回目
 便利マクロの事例
【例1】セルを結合させる。同時に文字中央にする。
【例2】格子状に罫線を引く
【例3】標準的なヘッダー、フッターの設定
【例4】そのシートの内容をノンストップで印刷。(シートの全ページが印刷されます。通常は印刷ダイアログが出て、手間が一つ余計にかかります)
【例5】指定範囲だけを印刷
【例6】文字を縦位置で中央揃えに

0 件のコメント: