Post-Admin:
Date:
Subject: タグ:Excel ( 26 ) タグの人気記事

Post-Admin:
Date: 2006年 11月 06日
Subject: Rows.Autofit
Columns.AutoFitは指定したセルの幅のみを見て幅を変更するが、Rows.Autofitは指定したセルだけでなく行全体の高さを見て高さを変更するようである。

Sub check()
Range("b2").Value = "1"
Range("b3").Value = "1234567890"
Range("c2").Value = "a" & vbLf & "b"
Range("b2").Columns.AutoFit
Range("b2").Rows.AutoFit
End Sub

そこで指定したセルの高さのみを見て変更するのに近い動作をするコードを使用している。

More
[PR]
by noaccess | 2006-11-06 10:55 | メモ

Post-Admin:
Date: 2006年 10月 10日
Subject: 続・Excelでセル内の全体を表示する
セルの書式で「折り返して全体を表示する」と「縮小して全体を表示する」に両方チェックが入っている場合にそれを同時に実現する。
の改良版

ソース
[PR]
by noaccess | 2006-10-10 21:22

Post-Admin:
Date: 2006年 10月 01日
Subject: 剰余を求める
=MOD(2^28,2)
=MOD(2^28,3)
第一引数と第二引数の差が大きいとエラーになるね、Excel2000だけか?
[PR]
by noaccess | 2006-10-01 01:37 | メモ

Post-Admin:
Date: 2006年 09月 20日
Subject: 続々・勝手にハイパーリンクにしない
Sub Worksheet_Change(ByVal target As Range)
Dim m, ctl1, ctl2
Dim s As String
Dim r As Range
For Each ctl1 In CommandBars("Worksheet Menu Bar").Controls
For Each ctl2 In ctl1.Controls
s = ctl2.Caption
If Left(s, 4) = "元に戻す" And Right(s, 7) = "ハイパーリンク" Then
Set r = ActiveCell
Application.Undo
r.Select
GoTo skp
End If
Next
Next
skp:
target.Hyperlinks.Delete
End Sub
やっぱりUndoは危険?でも書式を残したいしな・・・
[PR]
by noaccess | 2006-09-20 14:47 | メモ

Post-Admin:
Date: 2006年 09月 10日
Subject: 9文字までの英数字文字列を数値コードに変換する
=SUMPRODUCT(FIND(MID(UPPER(A1)&"aaaaaaaaa",{9,8,7,6,5,4,3,2,1},1),"a0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")-1,46^{0,1,2,3,4,5,6,7,8})
[PR]
by noaccess | 2006-09-10 02:09 | メモ

Post-Admin:
Date: 2006年 08月 18日
Subject: 計算・・・
=ROUNDUP(GEOMEAN(3)-3,0)
なんだかひどいが、まあそんなものなのだろうか
[PR]
by noaccess | 2006-08-18 10:57 | メモ

Post-Admin:
Date: 2006年 08月 12日
Subject: 続・勝手にハイパーリンクにしない
Sub Worksheet_Change(ByVal r As Range)
Dim a
If r.Hyperlinks.Count > 0 Then
Set a = ActiveCell
Application.Undo
a.Select
End If
End Sub
危ないかな
[PR]
by noaccess | 2006-08-12 01:38 | メモ

Post-Admin:
Date: 2006年 07月 25日
Subject: 勝手にハイパーリンクを設定しないようにする
Excel2000
Sub Worksheet_Change(ByVal r As Range)
r.Hyperlinks.Delete
End Sub
[PR]
by noaccess | 2006-07-25 14:03 | メモ

Post-Admin:
Date: 2006年 07月 19日
Subject: 素因数分解
某所で質問されていたようだ
{=SMALL(IF(MOD((C1),ROW(A:A)+1)=0,(ROW(A:A)+1),(C1)),1)}
あまり大きい数には使えない
[PR]
by noaccess | 2006-07-19 14:43 | メモ

Post-Admin:
Date: 2006年 07月 13日
Subject: 最後のデータ
また考える
最後のデータは何行目か
=SUMPRODUCT(ROW(A1:A65535),1*(COUNTBLANK(INDIRECT(ADDRESS(ROW(A1:A65535)+1,COLUMN(A1:A65535))&":a65536"))=65536-ROW(A1:A65535)),NOT(ISBLANK(A1:A65535))*1,ISBLANK(A2:A65536)*1)
[PR]
by noaccess | 2006-07-13 03:17 | メモ

Page select: |

Profile:
ほんとうかなあ?
by noaccess
プロフィールを見る
画像一覧

Calender:
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

*: 検索




*: 最新のトラックバック
うげ!
from ぶろぐ、ぶろぐとき、ぶろげば..
えーと
from ぶろぐ、ぶろぐとき、ぶろげば..
あれ
from ぶろぐ、ぶろぐとき、ぶろげば..

*: メモ帳
ぎゃふん状態にある


*: ブログジャンル
つぶやき

*: 画像一覧