SSブログ
マクロ ブログトップ
前の5件 | -

リンクの更新をしない。  EXCEL VBA [マクロ]

やはり、時々しか使わないとすっかり忘れてしまいます。(= 。=)

マクロからブック(ファイル)を開くときにリンクが設定されて
いると開く度に「更新する」、「更新しない」、を聞いてきます。
たくさんのデータを更新する時は少しでも、手作業部分を
減らしたいですね。

最後の0で「更新しない」を選択します。
Workbooks.Open Filename:="C:\作業用フォルダ\更新データ名.xls", UpdateLinks:=0




クリック募金 各サイトに直接つながります。
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/

http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html

http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html

数値か文字かで処理を分ける。 EXCEL VBA [マクロ]

EXCELって未だに理解できない事があります。

If ActiveCell.Value >0 Then A = A + 1

といった感じで、数値が入力されているセルの個数を
集計したかったのですが、上記の場合文字までカウント
されてしまいます。

このような基礎的?構造的?な事って皆さんどこで
調べるんでしょうか?

ひとまず、対処方法が見つかったので助かりましたが。

If IsNumeric(ActiveCell.Value) Then A = A + 1

これで、数値のみカウントされました。



クリック募金 各サイトに直接つながります。
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/

http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html

http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html

ダブルクリックイベント。複数の離れた範囲の設定  EXCEL VBA [マクロ]

以下のマクロをシートモジュールに貼り付けます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Application.Intersect(Target, Range     ("AT14:AT88,AZ14:AZ88,CY14:CY88,DF14:DF88,DM14:DM88,DT14:DT88")) Is Nothing Then
Call  範囲内を選択された時に実行するマクロ
End If
End Sub

Sub 範囲内を選択された時に実行するマクロ
Range("A1").value="テスト"
End Sub

離れた複数範囲を設定していますが、連続したセルなら
1つのセル範囲の設定でOKです。

シートモジュールへの貼り付けは左下にあるシート名(Sheet1など)を右クリックし、
「コードの表示(V)」を選択すると白紙のモジュールが表示されるので、貼り付ける
だけです。

クリック募金 各サイトに直接つながります。
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/

http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html

http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html

四捨五入・切り上げ・切捨て EXCEL VBA [マクロ]

久しぶりの書込みになります(^^;
以前、関数で四捨五入を記載しましたが、切り上げ・切捨ても
追加記載します。
セルA1に100.4
セルA2に100.5 等の数値を入力し以下のマクロを実行すると
それぞれの結果をセルB2~D2へ書込みされます。
小数点第2位に対して実行する場合は数式最後の「0」を
「1」に変更します。

Sub 四捨五入_切り上げ_切捨て()

A = Application.WorksheetFunction.Round(Range("A1"), 0)
B = Application.RoundDown(Range("A1"), 0)
C = Application.RoundUp(Range("A1"), 0)
Range("B1").Value = A
Range("C1").Value = B
Range("D1").Value = C
D = Application.WorksheetFunction.Round(Range("A2"), 0)
E = Application.RoundDown(Range("A2"), 0)
F = Application.RoundUp(Range("A2"), 0)
Range("B2").Value = D
Range("C2").Value = E
Range("D2").Value = F

End Sub

クリック募金 各サイトに直接つながります。
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/

http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html

http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html

条件によりマクロを終了。 IF NOT EXCEL VBA [マクロ]

マクロ処理を中止・終了する方法は幾つかありますが、
今回は IF NOT を使用したコードを記載します。

もし・・・でなければ処理を終了する。

   If Not Range("B1").Value = "継続処理" Then Exit Sub
また、数値上で判断する場合は
   If Not Range("B1").Value >= 50 Then Exit Sub
となります。

別の方法として
   If Range("B139").Value <> "yes" Then Exit Sub

上記の方法もありますが、今回は
・・・でなければの場合Notを使った方がスッキリしました。



クリック募金 各サイトに直接つながります。
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/

http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html

http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html
前の5件 | - マクロ ブログトップ

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。