<   2005年 10月 ( 12 )   > この月の画像一覧

セル内改行

セルの中にたくさんの文字列を入れる時(例えば文章とか)改行をしたくなる。
ただEnterキーを押しただけでは、下のセルに移動するだけだが、Alt + Enter で任意の位置での改行が出来る。
e0080122_1643279.gif

[PR]
by slayer0210 | 2005-10-31 16:44 | エクセル一般

赤色の数を数える

数えたい選択範囲を指定してから実行するマクロだが
赤色の数を数えたくて作成してみました。

Sub 赤色を数える()

Dim i As Integer
Dim j As Integer
Dim 赤色数 As Integer
 赤色数=0

For j = 1 To Selection.Columns.Count
   For i = 1 To Selection.Rows.Count
      If Selection.Cells(i, j).Interior.ColorIndex = 3 Then
         赤色数 = 赤色数 + 1
     End If
  Next
Next
    MsgBox 赤色数
End Sub
[PR]
by slayer0210 | 2005-10-28 12:57 | マクロ

カメラ機能

表を図として貼り付けると、元表のデータを変更しても図まで修正はされない。
表も連動して修正したい場合は、カメラ機能を使うと簡単だ。

コピーしたい表を範囲選択して、カメラボタンをクリックすると、カーソルの形が『+』に変化するのでその時にクリックし、貼り付ける。
e0080122_8637100.gif

もしカメラボタンが表示されていない場合は、
ツール→ユーザー設定をクリックし下図の画面を表示させる。
e0080122_884979.gif

[PR]
by slayer0210 | 2005-10-28 08:10 | エクセル一般

図のコピー貼り付け(Shiftキー)

Shiftキーをおしながら編集メニューを開くと、図のコピーと図の貼り付けというコマンドが表示される。
これは選択した範囲内を図としてコピーしてくれるという便利なものだ。
e0080122_1375069.gif

例えば、シート内にすでに出来上がっている表がある場合、その下に列幅の違う表を貼り付けるは難しい。
そんな時には、図のコピー&貼り付けを使用すると、簡単に2つの表が並べられる。
e0080122_1394638.gif

この様に、表が図として貼り付けられる。
但し、元表を変更しても自動的に更新はされない。
[PR]
by slayer0210 | 2005-10-27 13:12 | エクセル一般

行方向の同じ値のセルを結合する

例えばA列に日付などが入っているデータがあったとして
下方向に同じデータが入っているセルを結合するマクロを作ってみた。(自信ないけど・・・)


Sub セル結合()
Dim r As Integer '行数
Dim i As Integer 'カウンタ
r = Sheets(1).Range("a1").CurrentRegion.Rows.Count - 1

Application.DisplayAlerts = False

For i = 2 To r
  Cells(i, 1).Activate '項目の一つ下のセルをアクティブに
    If ActiveCell.Value = ActiveCell.Offset(1).Value Then
         Range(ActiveCell, ActiveCell.Offset(1)).Merge
     End If
Next
Application.DisplayAlerts = True
End Sub
目的の結果は得られたが、いまいちスッキリしない・・・
e0080122_2158663.gif
[PR]
by slayer0210 | 2005-10-26 21:56 | マクロ

ファイル名を指定してアクティブシートのみ保存

以前にブック内のシート名をファイル名にして保存するとうものがあったが
今回は、任意のファイル名(例えばセルに記入されてる文字列)をつけて
アクティブシートのみを保存するマクロを紹介。
今回もD直下に保存してみたが、相変わらず雑だなぁ~~と。

e0080122_1233146.gif
[PR]
by slayer0210 | 2005-10-25 12:32 | マクロ

金種表?のようなもの

金種表みたいな感じのものを作ってみました。
取敢えずA1セルに金額を入力すれば、金種に応じて枚数を返してくれる・・・と。
e0080122_11282011.gif
5000円以降はA1セルを絶対参照しておいて
下方向へフィルハンドルすれば数式がコピーされる
[PR]
by slayer0210 | 2005-10-25 11:29 | エクセル一般

セルの横方向への結合

セルを結合する場合はツールバーのセルを結合して中央揃えボタンを使用する場合が多い。
このボタンを使用すると選択した範囲全てを結合してくれる優れものだ。
e0080122_21253963.gif


しかし、選択した範囲内で横方向のみ結合したい場合は、横方向に結合ボタンを使うとよい。
e0080122_21265793.gif

[PR]
by slayer0210 | 2005-10-24 21:29 | エクセル一般

連続データ作成

任意の範囲内での連番を作成したかったので、下図のようなフォームを作成しました。
e0080122_8393251.gif

そもそも一般機能にも『連続データの作成』というものが存在するのですが
自分にとって多少使い勝手が悪かったようで・・・
ドラッグした範囲内での連番を作成できるようにしたので少しは便利かと。
[PR]
by slayer0210 | 2005-10-21 08:45 | マクロ

ユーザー定義関数(色合計)

セルの塗りつぶしの色ごとに計算(足し算)出来たらいいなぁとは思っていました。
これで合ってるのか解らないが、やってみました。

Function CSUM(範囲 As Range, 色見本 As Range) As Double
Dim kazu As Double
Dim myran As Range
Dim iro As Integer
 iro = 色見本.Interior.ColorIndex
 kazu = 0
 For Each myran In 範囲
   If myran.Interior.ColorIndex = iro Then
     kazu = kazu + myran.Value
  End If
 Next
CSUM = kazu
End Function
e0080122_9451772.gif

関数の名前はDSUMをまねて『CSUM』とした。
[PR]
by slayer0210 | 2005-10-18 09:46 | マクロ