タイトルが質問内容でもあります。そのままですみません(^^ゞエクセルで使用期限を設けたマクロをくっつけてお客様にファイルを納品したいと思っています。マクロのパスワード、シートのパスワード付保護はしましたが、この使用期限を設定するマクロのアイデアがなかなか浮かびません…どなたかよいアイデアを伝授していただけるようお願い致しますm(..)m

このQ&Aに関連する最新のQ&A

A 回答 (2件)

kami3さんこんにちは


簡易的な方法ですが、[書式]>[シート]>[表示しない]で、シートを表示しないようにしておき、パスワードを付けてブック保護します。次に、Workbook_Openイベントで、

Private Sub Workbook_Open()
If Now > "01/05/26" Then '期限日と今日の比較
ActiveWorkbook.Unprotect "XXX" 'XXXはパスワード
Sheets("Sheet1").Visible = True 'Sheet1の例
Else
MsgBox "期限切れ"
End If
End Sub

とし、シートを表示しないままファイルを保存しておきます。
ブックオープン時に、その都度期限内外の判断を行って、期限内ならばシート表示となります。ブック保護のパスワードがカギです、マクロ保護も必要です。これなら、マクロを有効にしなかった場合にも対応できると思います。ただ、PCの時計を戻されたらアウトです(^^;)。
    • good
    • 0
この回答へのお礼

TTakさん
ありがとうございます(^^)v早速試してみました!

求めている動作を行えるように色々な組み合わせを行うところなんかは
まるで頭の体操をしているようですね♪もっと複雑なのかなぁ~と漠然と
思っていましたが10行にも満たない内容でもここまでできてしまうなんて
今の私にはまるで魔法のように思えますw(゜o゜)w

しかし指摘のとおりPC時計をちょいと変更したら使えちゃいました(^^ゞ
やっぱり使える日数を限定(90日とか180日とか)して期限切れにしたほうが確実でしょうか?
まだまだマクロの開始、終了というところから始めている私にはもう少し勉強が必要ですねm(..)mそうそう、あと頭の体操も(^^ゞ

ところで何日か後に MsgBox "期限切れ" と表示するにはどんな方法があるのでしょうか?

お礼日時:2001/05/26 09:56

失礼、回答No.1のIFステートメントの">"は、"<"の誤りです。

    • good
    • 0
この回答へのお礼

TTakさん♪
補足ありがとうございましたm(..)m

お礼日時:2001/05/26 09:57

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q消費期限とはどういう意味ですか

賞味期限というのは何となく分かりますが、あるパンの包装に印字されている消費期限というのはどういう意味でしょうか。

Aベストアンサー

詳しい意味はリンク先として

保証している期間が大体5日以内
すぐに痛むので、消費期限を過ぎたものは食べないでね
という時間です

参考URL:http://ja.wikipedia.org/wiki/%E6%B6%88%E8%B2%BB%E6%9C%9F%E9%99%90

Qエクセル マクロについての質問です m__m

どなたかお教え下さい!!


エクセルファイル<名前は都度変わる>
ファイル内シート複数(約40-50)<名前は都度変わりバラバラ>
 
・AからN列までデータが入っている E:色々な文字 F~N:数字
・1行目は項目名で2行目から約4.5千行まで続いている

以上のようなファイルがあります。

複数あるシート全てに以下のように起動させたいです。

1、F列をR列へ移動  G列をQ列へ移動  N列をT列へ移動  L列をP列へ移動
2、P列×(カケル)H列をO列へ反映   M列×(カケル)H列をL列へ反映 
3、E列の最初の半角3文字を対象として全行の小計を出す  
  最初の3文字は必ず ”00_”(数数アンダーバー)の形になります 
 <対象文字、L,M,O,P,Q,R>の小計
対象文字とL,M,O,P,Q,R小計行だけを表示する

       起動前

E    F G H I J K L M N
02_B01715紅手 1 900 963 77.04 2000 160 1 1 0
14_B03414ルメ  1 900 963 77.04 2000 160 1 10 3
99_B04016虹ル 1 1260  1348 107.84 2800 224 1 2 0
14_C00915ABT 1 1575  1685 134.8 3500 280 1 0 0
02_C00915C部 2 3420 1829 146.32 3800 304 2 1 0
02_C00915ニプ 2 3420 1829 146.32 3800 304 2 2 0

起動後

E L M O L Q R
02_ 集計 6450 4 8279 5 7740 5
14_ 集計 9630 10 2648 2 2475 2
99_ 集計 2696 2 1348 1 1260 1

のよにしたいです!!
宜しくお願いいたします!!

どなたかお教え下さい!!


エクセルファイル<名前は都度変わる>
ファイル内シート複数(約40-50)<名前は都度変わりバラバラ>
 
・AからN列までデータが入っている E:色々な文字 F~N:数字
・1行目は項目名で2行目から約4.5千行まで続いている

以上のようなファイルがあります。

複数あるシート全てに以下のように起動させたいです。

1、F列をR列へ移動  G列をQ列へ移動  N列をT列へ移動  L列をP列へ移動
2、P列×(カケル)H列をO列へ反映   M列×(カケル)H列をL列へ反映 
3、E列...続きを読む

Aベストアンサー

同一ブックへ上書きは無理です。
新規ブックを出力します。名前は該当ブックの名前に「new_」をつけました。
これ以上の仕様変更は別質問にして下さい。

Sub Sample2()
Dim fname As String
Dim wb1 As Workbook, wb2 As Workbook
Dim sh1 As Worksheet, sh2 As Worksheet
Dim scnt As Integer
Dim i As Long, imax As Long
Dim j As Long
Dim skey As String
Dim gt_tbl(6) As Long
Dim cnt As Integer
fname = Application.GetOpenFilename(FileFilter:="Book ,*.xlsx", MultiSelect:=False)
If fname = "False" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb1 = Workbooks.Open(fname)
Set wb2 = Workbooks.Add
For scnt = 1 To wb1.Worksheets.Count
Set sh1 = wb1.Worksheets(scnt)
With sh1
.Copy After:=wb2.Worksheets(Worksheets.Count)
Set sh2 = wb2.Worksheets(wb2.Worksheets.Count)
imax = .Cells(Rows.Count, "E").End(xlUp).Row
End With
With sh2
'ソートして計算
.Range("A2:N" & imax).Sort Key1:=.Range("E2"), order1:=xlAscending
.Range("F2:F" & imax).Cut Destination:=.Range("R2")
.Range("G2:G" & imax).Cut Destination:=.Range("Q2")
.Range("L2:L" & imax).Cut Destination:=.Range("P2")
For i = 2 To imax
.Range("O" & i).Value = .Range("P" & i).Value * .Range("H" & i).Value
.Range("L" & i).Value = .Range("M" & i).Value * .Range("H" & i).Value
Next i
.Range("H2:K" & imax).Clear
'集計
skey = Left(.Range("E2").Value, 3)
j = imax
For i = 2 To imax
Do Until Left(.Range("E" & i).Value, 3) <> skey Or i > imax
For cnt = 0 To 6
gt_tbl(cnt) = gt_tbl(cnt) + .Cells(i, cnt + 12).Value
Next cnt
i = i + 1
Loop
'計OUTPUT
j = j + 1
sh2.Range("E" & j).Value = skey & "集計"
For cnt = 0 To 6
If cnt <> 2 Then
sh2.Cells(j, cnt + 12).Value = gt_tbl(cnt)
End If
Next cnt
skey = Left(.Range("E" & i).Value, 3)
For cnt = 0 To 6
gt_tbl(cnt) = .Cells(i, cnt + 12).Value
Next cnt
Next i
'最後の計OUTPUT 最後一つの時だけ
If gt_tbl(0) = .Range("L" & imax) Then
j = j + 1
.Range("E" & j).Value = skey & "集計"
For cnt = 0 To 6
If cnt <> 2 Then
.Cells(j, cnt + 12).Value = gt_tbl(cnt)
End If
Next cnt
End If
'明細削除
.Rows("2:" & imax).Delete
End With
Next scnt
With wb2
For scnt = .Worksheets.Count To 1 Step -1
If Left(.Worksheets(scnt).Name, 5) = "Sheet" Then
.Worksheets(scnt).Delete
End If
Next scnt
End With
wb2.SaveAs Filename:=wb1.Path & "\new_" & wb1.Name
wb2.Close
wb1.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

同一ブックへ上書きは無理です。
新規ブックを出力します。名前は該当ブックの名前に「new_」をつけました。
これ以上の仕様変更は別質問にして下さい。

Sub Sample2()
Dim fname As String
Dim wb1 As Workbook, wb2 As Workbook
Dim sh1 As Worksheet, sh2 As Worksheet
Dim scnt As Integer
Dim i As Long, imax As Long
Dim j As Long
Dim skey As String
Dim gt_tbl(6) As Long
Dim cnt As Integer
fname = Application.GetOpenFilename(FileFilter:="Book ,*.xlsx", MultiSelect:=False)
If fname = "False...続きを読む

Q「有効期限はありません」という意味は?

あるチラシに「ご購入のカードは、有効期限はありません」と書かれていました。
意味合いは、「期日の定めなく、残高がなくなるまで使えます」という
意味らしく、無期限有効をあらわしたかったということのようです。
私だったら、「使用期限はありません」としますが、どうでしょうか。

Aベストアンサー

 ついこういうことばでの文章表現しますよね。
 厳密に考えると、えぇ?って思われるけれども、ご質問者もお気づきのとおり、意味や真意はわかりますものね。
 法律でも《○○の場合、期限を定めない○○とみなす》とかありますね。
 有効期限がない⇒有効期限を定めない
 という意味なのでしょうね。
 期限がなくなっている、という受け取り方もできなくもありませんが、まぁ社会生活でのことば表現とは、場とか状況、いろんな関係のなかで、とっさにいい、とっさに解釈するのでしょうね。
 ことばってそんな生きたものなのですね。

Q「マクロ」の足し算の式を教えてくださいm()m

VBA初心者です。

セルB6にB2からB5までの合計を求めるマクロを入力したいです。
subからどのように書けばいいんでしょうか?

書き方を教えてください。

Aベストアンサー

こんばんは!

SUM関数が一番簡単ですが、どうしてもVBAでやりたいというコトであれば
ワークシート関数をそのまま使うのが手っ取り早いと思います。

Sub 合計() '←「合計」は好みのマクロ名に!
With Range("B6:E6") '←B6~E6セルの
.Formula = "=SUM(B2:B5)"
.Value = .Value
End With
End Sub

といったような感じで・・・

いかにもマクロらしいやり方といえば

Sub 合計2()
Dim i As Long, j As Long
For j = 2 To 5 '←B列~E列
For i = 2 To 5 '←2行目~5行目
Cells(6, j) = Cells(6, j) + Cells(i, j)
Next i
Next j
End Sub

のような方法もありますが、データ量が多い場合はなるべくループさせない方が良いと思います。

※ もちろん他にも色々書き方はあります。m(_ _)m

こんばんは!

SUM関数が一番簡単ですが、どうしてもVBAでやりたいというコトであれば
ワークシート関数をそのまま使うのが手っ取り早いと思います。

Sub 合計() '←「合計」は好みのマクロ名に!
With Range("B6:E6") '←B6~E6セルの
.Formula = "=SUM(B2:B5)"
.Value = .Value
End With
End Sub

といったような感じで・・・

いかにもマクロらしいやり方といえば

Sub 合計2()
Dim i As Long, j As Long
For j = 2 To 5 '←B列~E列
For i = 2 To 5 '←2行目~5行目
...続きを読む

Qウイルス対策ソフトの有効期限の意味

ノートンの有効期限が切れました。
更新(購入)しないで他のソフト(無料希望)をインストールするとしたら、
ノートンの方はアンインストールしなければいけないのでしょうか?

また、期限切れのノートンは古いウイルスには有効で新しいウイルスにが効果が無いという意味ですか?
それとも何のウイルスにも効果無しという意味ですか?

Aベストアンサー

ウイルス対策ソフトだけは1本しか入れてはいけません.変えるなら必ずアンインストールしてからにします.最新の機器ならいいですが,古い機器であればソフトにより動き悪くなりますので,いろんなメーカー品のお試版で動きを見た方がいいです.

http://ratan.dyndns.info/avast4/virusest.html

http://internet.watch.impress.co.jp/cda/news/2005/09/14/9141.html

http://plaza.rakuten.co.jp/ckp36396/diary/200507250000/

http://security.biglobe.ne.jp/index-bl.html

http://canon-sol.jp/product/nd/

http://www4.pf-x.net/%7Ezot/av/imenu.htm

http://atubon.hp.infoseek.co.jp/avg.html

http://download.kingsoft.jp/is/?partner=kingsoft_000&header=1

http://www.mcafee.com/japan/mcafee/home/

http://park8.wakwak.com/~ukkie/security/avg/index.htm

ウイルス対策ソフトだけは1本しか入れてはいけません.変えるなら必ずアンインストールしてからにします.最新の機器ならいいですが,古い機器であればソフトにより動き悪くなりますので,いろんなメーカー品のお試版で動きを見た方がいいです.

http://ratan.dyndns.info/avast4/virusest.html

http://internet.watch.impress.co.jp/cda/news/2005/09/14/9141.html

http://plaza.rakuten.co.jp/ckp36396/diary/200507250000/

http://security.biglobe.ne.jp/index-bl.html

http://canon-sol.jp/pr...続きを読む

QVBAマクロでの質問になりますm_ _m

教えて下さい!!宜しくお願いいたします

エクセルファイルで1行に項目名があり2行目から3000行目くらいまでデータがあり間に空白もあります。 これがO列まで続くシートです
同ファイル内に50程のシートがあり名前はバラバラです
こちらの開いている各シートの特定列をデータが入っている最終行までをコピーして
新しいシートを作ってA列に(1シート目の特定列)B列に(2シート目の特定列)...右へ順番に張り付けていきたいです。


複数シートの特定列が B列だけの場合

複数シートの特定列が B列とC列の場合

複数シートの特定列が B列とD列の場合

特定列が2列の場合はA、B列に(1シート目の特定列)C、D列に(2シート目の特定列)...右へ順番に張り付けていきたいです。

どうぞよろしくお願いいたします。

Aベストアンサー

こうですかね。これ以上は詳しい説明がないと無理です。

Sub Sample2()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim sh3 As Worksheet, sh4 As Worksheet
Dim scnt As Integer
Dim i As Long, imax As Long
Dim row1 As Long, row2 As Long, row3 As Long
Dim col1 As Long, col2 As Long, col3 As Long
Application.ScreenUpdating = False
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "New_Sheet1"
Set sh1 = Worksheets(Worksheets.Count)
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "New_Sheet2"
Set sh2 = Worksheets(Worksheets.Count)
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "New_Sheet3"
Set sh3 = Worksheets(Worksheets.Count)
col2 = -1
col3 = -1
For scnt = 1 To Worksheets.Count - 3
Set sh4 = Worksheets(scnt)
row1 = 0
row2 = 0
row3 = 0
col1 = col1 + 1
col2 = col2 + 2
col3 = col3 + 2
With sh4
imax = .Cells(Rows.Count, "B").End(xlUp).Row
If .Cells(Rows.Count, "C").End(xlUp).Row > imax Then
imax = .Cells(Rows.Count, "C").End(xlUp).Row
End If
If .Cells(Rows.Count, "D").End(xlUp).Row > imax Then
imax = .Cells(Rows.Count, "D").End(xlUp).Row
End If
For i = 2 To imax
If .Range("B" & i).Value <> "" Then
row1 = row1 + 1
.Range("B" & i).Copy Destination:=sh1.Cells(row1, col1)
End If
If .Range("B" & i).Value <> "" And .Range("C" & i).Value <> "" And .Range("B" & i).Value = .Range("C" & i).Value Then
row2 = row2 + 1
.Range("B" & i & ":C" & i).Copy Destination:=sh2.Cells(row2, col2)
End If
If .Range("B" & i).Value <> "" And .Range("D" & i).Value <> "" And .Range("B" & i).Value = .Range("D" & i).Value Then
row3 = row3 + 1
.Range("B" & i).Copy Destination:=sh3.Cells(row3, col3)
.Range("D" & i).Copy Destination:=sh3.Cells(row3, col3 + 1)
End If
Next i
End With
Next scnt
Application.ScreenUpdating = True
End Sub

こうですかね。これ以上は詳しい説明がないと無理です。

Sub Sample2()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim sh3 As Worksheet, sh4 As Worksheet
Dim scnt As Integer
Dim i As Long, imax As Long
Dim row1 As Long, row2 As Long, row3 As Long
Dim col1 As Long, col2 As Long, col3 As Long
Application.ScreenUpdating = False
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "New_Sheet1"
Set sh1 = Worksheets(Worksheets.Count)
Worksheets.Add(After:=Worksheets(Worksheets.Cou...続きを読む

Qセブンイレブンのお弁当で、賞味期限の横にあるアルファベットの意味は?

セブンイレブンのお弁当やおにぎり、総菜とかに賞味期限とかが書いているシールが貼ってあると思うのですが、そこに意味不明なアルファベットが書いてあるのですが、その意味って何でしょう?
配送便の意味ですか?
前にテレビでやっていたのを見た記憶があるのですが。
ご存じの方いましたら教えてください。

Aベストアンサー

↓こちらを参考にどうぞ。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=495788

Qexcel関数・マクロを使って良いアイデア

会社の人に質問されたのですがよく分からないのでどなたか教えてください。

商品の仕入れ情報をExcelBook1に入力。
1ヶ月単位でシートを作成している。

ExcelBook1の情報を参照して在庫?のデータを
管理しているExcelBook2。
こちらは週単位でシートを作成している。

両方のBook共に商品の並びは一緒で、
A1、B1・・・と1行目に日付が入っており、A1、A2・・・とAの列に商品名が入っています。

これを現在週が変わる度に、ExcelBook2の方に
=\\server\○○フォルダ\[excelbook1.xls]Sheet1!B2
=\\server\○○フォルダ\[excelbook1.xls]Sheet1!B3


という風に地道に入力しているらしいのです。

最初はアイテム数が少なく事足りていたそうなんですが、今では数百アイテムに増えて入力が大変になったそうです。

しかも5行毎にまた日付が入って、備考欄があって…と一気にドラッグする事もできずに面倒になっているようです。

両方とも月単位とか週単位とかに併せるのは難しいらしく(上司が嫌がっている)、なんとか現状のBook2→book1の参照を、関数とかマクロとか使って簡単にできないだろうか?という相談を受けました。

私のレベルとしては、関数もマクロも素人に毛が生えた位のレベルで、
良い案が思い浮かびません。

VBEでbook2に範囲指定して条件文を作成して、book1の商品名と日付が一致したときに
=\\server\○○フォルダ\[excelbook1.xls]Sheet1!○○
を自動でbook2の方に入力できるマクロを作成できればいいのかな?とも思ったりするのですが、何か良いアイデアをご存知の方がいらっしゃったら是非ご教示ください。

よろしくお願いします。

会社の人に質問されたのですがよく分からないのでどなたか教えてください。

商品の仕入れ情報をExcelBook1に入力。
1ヶ月単位でシートを作成している。

ExcelBook1の情報を参照して在庫?のデータを
管理しているExcelBook2。
こちらは週単位でシートを作成している。

両方のBook共に商品の並びは一緒で、
A1、B1・・・と1行目に日付が入っており、A1、A2・・・とAの列に商品名が入っています。

これを現在週が変わる度に、ExcelBook2の方に
=\\server\○○フォルダ\[excelbook1.xls]Sheet1!B...続きを読む

Aベストアンサー

表計算は単一シートから始まりました。そのようにデータを扱う単位としてはシートが中心です。別ブックに分かれると難しくなる。
この課題はVBAで、数年以上の経験の在る相当エクセルVBAを頻繁に扱う熟練者で無いと出来ないと思う(他言語で開発経験者は除いても)。
質問コーナーなどでの質問で、済む問題ではないと思う。だから今すぐに着手は無理。スクール・講習会、指導者の指導の下にチャレンジなどが必要と思う。
エクセルでは、業務というレベルに対し、適当な仕組みが不足していて、荷が重い課題です。
データベースの考え方も学ぶ必要があると思う。
#1でも匂わせておられるように、いまのやり方では、全体で見るとデータが2重に存在します。こういうのは望ましくない。だからACCESSなどの仕組みを勉強し、対処するべき課題と思います。しかしこちらも習得は簡単ではない。
たとえ出来たとしても、こういう個人技のシステムもどき、が会社内に増えていくと少し先に、作り直しが待っていると思う。
また作成者が退職や部署移動するとたちまち機能不全になる。個人のレポート程度の作成と違って、バックアップやセキュリティ対策や
システム管理など、新しく必要になる仕事が増えます。エクセルの本
などではそんなの余り載ってません。エクセルは単一ユーザーで使うことをそうていしたもの。他シートやブックに簡単に連動させたりの機能がほとんど無い。目的が違うのです。エクセルは取り付きやすく、そこで少し使った人が、あれも出来ないか、これも出来ないか良く質問している。ほとんど関連のことも勉強しないで。
「出来ますかで、すんだらシステム屋いらん」はずですが、実際は
複雑で難しい。
(1)市販の在庫管理などのソフトで適当なものは無いか
(2)フリーでそういうソフトは無いか(出来ればエクセル利用で)
(1)にも、経営者が金を出してくれない、というなら、組織として、本件のようなことをやるのは、自分個人の勝手な分派行動です。自宅でやるなら当たりませんが、会社で1000時間も職場でこっそり開発をやったら、本業に影響が出て、経営者や上司から見たら、好ましくない事態でしょう。
言いたいことは会社・経営者を巻き込んだコンセンサスが必要と思う。会社の主要な仕事の一部なんだから、仕事としてオーソライズしてもらい、そこで自社開発(ボランチアが開発)や外注やソフト購入などを考えるべきでしょう。友達に聞いてヒントですらすら出来る・してよい筋合いの物ではないと思う。
==
>book2に範囲指定して条件文を作成して、book1の商品名と日付が一致したときに
両シートのデータを日付(+会社名など。キーという)でソートしておき、キー項目で両シートデータをマッチング(バッチ処理のコンピュター処理のアルゴリズム)すれば、2シートの情報は1つのシートに合成できます。骨格はVBAで20行ぐらいのコードですみますが。

表計算は単一シートから始まりました。そのようにデータを扱う単位としてはシートが中心です。別ブックに分かれると難しくなる。
この課題はVBAで、数年以上の経験の在る相当エクセルVBAを頻繁に扱う熟練者で無いと出来ないと思う(他言語で開発経験者は除いても)。
質問コーナーなどでの質問で、済む問題ではないと思う。だから今すぐに着手は無理。スクール・講習会、指導者の指導の下にチャレンジなどが必要と思う。
エクセルでは、業務というレベルに対し、適当な仕組みが不足していて、荷が重い課題です...続きを読む

Qsimの開通期限とはどういう意味ですか?

データsimを契約したのですが、開通期限というものが記載されていました。
2015/3となっているのですが、来年の3月以降は使えなくなるということでしょうか?

Aベストアンサー

2015年3月までにユーザー登録や料金支払い手続き(クレジット番号や銀行の口座振り替え等)をしてくださいという意味です。

Qエクセルマクロでサイトにパスワードを入力

エクセルマクロで証券会社等へのIDやパスワードを自動入力
したいのですが
こんな事って可能なんでしょうか?
証券会社は楽天です。
たしか楽天証券にはRSSがあってエクセルで株価などを
読み取ることが出来ると聞いたのですが

こちら側からマクロで外部に入力するにはどうすれば良いのか
解りません
宜しくお願いいたします。

エクセル2003

Aベストアンサー

こんにちは。

眠たい詩人さんが Windows 自動化ソフト UWSC を使って自動ログインを行うプログラムを一般公開されています。

以下、説明文の引用です。

『楽天証券 MarketSpeed へ自動ログインし、日経テレコン21(楽天証券版)を起動します。楽天証券に口座を開設して、MarketSpeed 利用登録をしている方限定です。(07/11/09 改版)
必要なソフト : MarketSpeed』

スクリプトの内容をざざっと眺めてみましたが、UWSC スクリプトエンジンの搭載する組み込み手続きを利用しています。Excel VBA にそのまま移植するのは容易ではないでしょう。まずは UWSC 4.4a フリー版をダウンロードしてトライしてみられてはいかがでしょうか。

参考URL:http://ochoja.web.fc2.com/uwsct/0610uwsct.html#MakingSupport


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報