VBでの質問です
5分を計るタイマーを作っていて5分たつと止まるプログラムを作っていて、コンマ以下のケタが長くて、しかも止まらない（ Label1.Text = n5.Subtract(Now).ToStringをLabel1.Text = n5.Subtract(Now).TotalMinutesにしてIf Label1.Text = "00：00：00" ThenをIf Label1.Text = "0" Thenにした時は止まりました）ので止まるようにするにはどこを変えればいいですか？
教えてください
以下コードです
Public Class Form1
Dim n5 As DatePrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
n5 = Now.AddMinutes(5)
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = n5.Subtract(Now).ToString
If Label1.Text = "00：00：00" Then
MsgBox("時間になりました。")
Timer1.Stop()
End If
End Sub
長文ですいません
下のようなプロシージャをエクセルに組み込んでいますが、次のようなことができるように変更したいので教えてください。
なお、プロシージャは正常に作動しています。
Private Sub Worksheet_Activate()
With Sheets("シート名")
.AutoFilterMode = False
.Range("A1:d1").AutoFilter
.Range("A1:d1").AutoFilter field:=1, Criteria1:="<>"
.Range(.Range("d1"), .Range("A1").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Range("A1")
.AutoFilterMode = False
.Range("A1:d1").AutoFilter
End With
End Sub
修正してできるようにしたいこと
１、with sheets("シート名")のシート名にシートがアクティブになったとき、そのシート名が自動で入るようにしたい。
※シートの数は６シーとあります。
２、セルd1のデータからその行のデータ全体がコピーされるので、必要なセルのデータのみがコピーできるようにしたい。
CPU Intel(R)Pentium(R)4 Processor with MMX
CPU速度 2882MHz
OS VISTA
メインメモリー 容量：1525MB 空き：820MB
グラフィックカード Intel(R)82945G Express Chipset Family
ビデオドライバー igdumd32
マザーボード D945GCL
なんですが
ふと全体的に性能としてはどうなのかな？と思いまして
困っています 例えば
Option Explicit
Sub sss()
Dim allrange As Range
Dim cell As Range
Set allrange = Union(Range("A1"), Range("A3"))
For Each cell In allrange
cell = 123
Next cell
End Sub
'----------------------------------------------------------
Sub ssscr()
Dim exlapp As Excel.Application
Dim exlwb As Object
Dim exlsh As Object
Set exlapp = CreateObject("Excel.Application")
exlapp.Visible = True
Set exlwb = exlapp.Workbooks.Add
Set exlsh = exlwb.Worksheets(1)
Dim allrange As Range
Dim cell As Range
Dim rngA1 As Range
Dim rngA3 As Range
Set rngA1 = exlsh.Range("A1")
Set rngA3 = exlsh.Range("A3")
Set allrange = Union(rngA1, rngA3)
For Each cell In allrange
cell = 123
Next cell
End Sub
最初のコードだとA1,A3に値が入力されるんですけど
二番目のコードだと新たに出来きたbookに入力されません。
unionのところでエラー起こります。
作成したブックのシートをセレクトしても入力できません。
作成したブックにunion関数を指定したときどうしたらよろしいでしょうか？
PCを買い換えたため、以前から使用しているoffice２０００を新しいPCに導入いたしました。
outlook2000を使用しようとしたら、以下のウィンドウが出ました。
There was an error that caused the Instant PIM Outlook Plugin to fail.
Please send PIM_DBG.log to support.
OKを押すと終了してしまい、outlook2000が使用できません。
今までは新しいPCに買い換えてもこのようなエラーは出ませんでした。
このエラーを回避する方法がお分かりの方教えていただけますでしょうか。
