忍者ブログ
[1]  [2]  [3
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

お忍びリネーム
http://www.digidigiday.com/digidigi/dgbrand/dgbrand.html

F2でリネームする際に、拡張子を除く部分を自動で選択してくれる
さらにF2で拡張子のみも選択できる。

3Dフリップ
http://tokyodownstairs.blogspot.com/2007/12/winflipjapanese.html
PR

もうほとんどブログではなくオンラインメモ帳として機能しているオイラのブログ。

今日もまたメモ書きです。

行選択
     rows("4:4").select   4行を選択
  rows("1:4").select      1~4行を選択
列選択
     columns("C:C").select       C列を選択
  columns("A:C).select         A~C列を選択

変数使ってセルの選択
  Dim retu1 As Integer
     Dim gyou1 As Integer

    Cells(retu1,gyou1).Selet

選択したセルから数値分離れたセルを選択
    ActiveCell.offset(3,5).Range("a1").Select
  アクティブのセルからカーソルキーを下に3回右に6回押した位置
 

sumifを変数を入れて使ってみる
    
   Dim hensu1 As Integer
   Dim hensu2 As Integer
   Dim hensu3 As Integer
   Dim hensu4 As Integer

     ActiveCell.FormulaR1C1=
            "=SUMIF(R[" & hensu1 & "]C[-2]:R[" & hensu2 & "]C[-2],""名前"",R[ " & hensu3 & "]C[-3])"

ダブルクォーテーションで囲まれた範囲は文字列として認識される。&を使い文字列結合して式を完成させる。
上記のSUMIFの場合

ActiveCell.FormulaR1C1=         (アクティブセルに式を入れる(.Formula))

"=SUMIF(R[" 【文字列】
&
hensu1
&
"]C[-2]:R["        【文字列】
&
hensu2
&
"]C[-2],"            【文字列】
"名前"               【文字列】
",R[ "                 【文字列】
&
hensu3
&
"]C[-3])"            【文字列】

となる。

あれ、文字列文字列文字列があるが。

とりあえずは変数は文字列として代入すると計算されないので
””の外に書けば動く。
 

これ最強
http://www.kashim.com/eve/
HTML自動補完してくれるし、文法チェックしてくれるし、軽いし。
設定しないでも自動でそういうのやってくれるのがいい感じ。
作った人、ほめてつかわす。あっぱれあっぱれ。
http://seo.fc2.com/sitemap/

グーグルのサイトマップこれで作ると便利っぽい。
楽ちんらくちん。
カレンダー
04 2024/05 06
S M T W T F S
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
ブログ内検索
最新コメント
[02/28 metsozone]
[04/28 Moya]
[02/17 マチルダ]
[12/25 ノリス]
[09/30 けてぃ]
バーコード
↓おいらに還元↓
アクセス解析
あふぃりえいと
忍者ブログ [PR]