こんにちわ。
いつも諸先輩方に教えて頂きありがとうございます。
感謝しております。
早速ですが以下のようなＶＢを教えてもらいまして、
Ｃ３のセルにリアルタイムで変化する数字があります。
それを、３秒おきに時間とともにＣ６から順に記録して
１分間溜まったら、
Ｅ６に時間、
Ｆ６その１分間の最初の値、
Ｇ６にその１分間での最高値
Ｈ６にその１分間での最低値
I６にその１分間での最後の値
が順番に記録されるようになっております。
このマクロを改正して、
(1)１秒感覚でＣ３から下へ順に記録。
(2)５分間隔でＥ６＾Ｉ６に４種の値を下へ順に記録
（このデータはずっと起動している間は下へ記録し続けたいです）
というように変更したいのですがうまくいかず、四苦八苦しておりました。
お忙しいところ申し訳ありませんが、
ヒントなるものでも結構ですので教えて頂ければ幸いです。
以上宜しくお願いいたします。
UNO
=========================================================
Option Explicit
Public STOP_B As Boolean
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub ストップ()
STOP_B = False
End Sub
Sub スタート()
Dim i As Integer
Dim t As Integer
Dim n As Integer
Dim R As Range
Dim timenow As Variant
i = 6
n = 6
STOP_B = True
Do While True
t = 0
timenow = Format(Now(), "HH:mm")
While t < 300
Call Sleep(10)
DoEvents
t = t + 1
Wend
If timenow = Format(Now(), "HH:mm") Then
Sheet1.Cells(i, 3).Value = Sheet1.Range("C3").Value
i = i + 1
Else
Sheet1.Cells(n, 5).Value = timenow
Sheet1.Cells(n, 6).Value = Sheet1.Cells(6, 3).Value
Set R = Sheet1.Range(Sheet1.Cells(6, 3), Sheet1.Cells(i, 3))
Sheet1.Cells(n, 7).Value = WorksheetFunction.Max(R)
Sheet1.Cells(n, 8).Value = WorksheetFunction.Min(R)
Sheet1.Cells(n, 9).Value = Sheet1.Cells(i - 1, 3).Value
Sheet1.Range(Sheet1.Cells(6, 3), Sheet1.Cells(i, 3)).Clear
i = 6
Sheet1.Cells(i, 3).Value = Sheet1.Range("C3").Value
i = i + 1
n = n + 1
End If
If STOP_B = False Then
Exit Sub
End If
Loop
End Sub
Function xSleep(ByVal dwMilliseconds As Long)
Call Sleep(dwMilliseconds)
End Function
=====================================================
エクセルから表をパワーポイントへ貼り付けたときの、位置調整がうまくいきません。宜しくお願いします。
--------------------
sub test1()
Dim pptApp As Object
Dim pptPre As Object
Dim tempFileName As String
Dim macrofile As String 'エクセルの貼り付け元のファイル名
Dim sht As String 'エクセルの貼り付け元のシート名
Dim page As Integer 'パワーポイントへの貼り付けたいページ
Dim picPos_yoko As Long 'パワーポイントへの貼り付け横位置
Dim picPos_tate As Long 'パワーポイントへの貼り付け縦位置
macrofile = "sample001.xls"
sht = "sheet1"
tempFileName = ThisWorkbook.Path & Application.PathSeparator _
& macrofile
Set pptApp = CreateObject("powerPoint.Application")
With pptApp
.Visible = True
Set pptPre = .Presentations.Open(tempFileName)
End With
Workbooks(macrofile).Worksheets(sht).Activate
Range("A1").CurrentRegion.Copy '表のコピー
With pptPre.Slides(page)
.Shapes.Paste.Name = "hyou1"
With .Shapes("hyou1")
.Top = picPos_yoko
.Left = picPos_tate
End With
End With
End Sub
------------------------
.Shapes.Paste.Name = "pic1"
↑この行で名前をつけたかったがうまく名前がついていない。
貼り付けた表の名前をパワーポイントのマクロの記録で確認したところ "Group 288"と名前がついていた
With .Shapes("hyou1")
↑当然この行で"hyou1"は見つからないというエラーが出てしまう。
表をエクセルからコピーして、パワーポイントへ位置を指定して張り付けるかもしくは貼り付けた後に移動ができるかを実現したい。
何かいい方法はありませんか？パワーポイントへエクセルからグラフを貼り付けた場合はうまくいきました。
また。パワーポイントの表の名前のつけ方には規則性があるのでしょうか。規則性があれば、それに則ってコードをかけるのですが・・・。
エクセル VBA 超入門のものなんですけど、質問させてください。
A1のセルに １を入力したら、セルD１に正解を表示させ、 それ以外なら不正解を表示させたいのですが、 以下の文でつくると 実行した最初しか起動してないような気がするのですが、教えてください。どうすればセルA1を入力するたびに、 正解、不正解をD１に表示させれるでしょうか？
Sub テスト()
If Range("A1") = "1" Then
Range("D1").Value = "正解"
Else
Range("D1").Value = "不正解"
End If
End Sub
今のコードを載せます
Sub test_StopwatchCell()
If did Then
kStopwatch
Else
kStopwatch Range("a1")
End If
End Sub
上のコードはエクセルワークシートにフォームのボタンを配置して、test_StopwatchCell 関数を登録し、クリックで測定開始し、もう一度クリックで測定停止するマクロですが、一時停止のボタンを新たに作りたいのですが、どうしたらいいのか教えて下さい。お願いします。
