リンクの更新をしない。 EXCEL VBA [マクロ]
やはり、時々しか使わないとすっかり忘れてしまいます。(= 。=)
マクロからブック(ファイル)を開くときにリンクが設定されて
いると開く度に「更新する」、「更新しない」、を聞いてきます。
たくさんのデータを更新する時は少しでも、手作業部分を
減らしたいですね。
最後の0で「更新しない」を選択します。
Workbooks.Open Filename:="C:\作業用フォルダ\更新データ名.xls", UpdateLinks:=0
クリック募金 各サイトに直接つながります。マクロからブック(ファイル)を開くときにリンクが設定されて
いると開く度に「更新する」、「更新しない」、を聞いてきます。
たくさんのデータを更新する時は少しでも、手作業部分を
減らしたいですね。
最後の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
これで、数値のみカウントされました。
クリック募金 各サイトに直接つながります。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)」を選択すると白紙のモジュールが表示されるので、貼り付ける
だけです。
クリック募金 各サイトに直接つながります。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
クリック募金 各サイトに直接つながります。以前、関数で四捨五入を記載しましたが、切り上げ・切捨ても
追加記載します。
セル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を使った方がスッキリしました。
クリック募金 各サイトに直接つながります。今回は 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