重複行の削除処理

表作成の場合、キーとなるコードに重複がある場合は、2行重複した
 行を見つけ削除する処理です。
キーとなるコードが２行連続している場合に、削除する事が可能です。
ここでは、1行目1列から100行目までのキーとなるコードの
連続した２行に重複があった場合に、先にある行の削除を行います。
行削除には、.EntireRow.Deleteコマンドを使用します。

Private Sub sample()
Dim wRow       As Integer
Dim cKazu      As Integer

  wRow = 1
  For cKazu =  1 to 100
    If Cells(wRow, 1) = Cells(wRow + 1, 1) Then
       Cells(wRow + 1, 1).EntireRow.Delete
    End If
    wRow = wRow + 1
  Next

End Sub

 

Timer 関数

処理時間の測定にTimer関数を使用します。
Timer関数は、午前０時から経過した秒数を表す単精度浮動小数点数型の
値を返しますので計測対象の前後に入れて掛かった時間を計測します。
指定のしかたはこの様にします。 

  Timer 関数
構文  　Timer
引数　　なし

Private Sub Sample  ()
Dim StTim  As  String
Dim EdTim  As  String
StTim = Timer
－－－計測対象処理－－－
EdTim = Timer
Msgbox "処理時間は、" & EdTim - StTim & "秒です。"
End Sub

 

株富夢士サポート

よくある質問・Ｑ＆Ａ 【Ver 2.9 】

  Ｑ１　「買実行」キーを押しても演算した内容が表示されません。
    Ａ； 取引一覧表の演算用セル「買FLG」欄に誤って日付が入っている
            ためです。買い注文を記入すると、F欄には"買"が表示されますが、
            この時の F欄には、"持"が表示されます。
　　　 Ver2.7以降は、"＄"又は"H"を表示。
 　　　演算用セルは、マクロが使用する欄のため、銘柄登録以外では
　　  　使用しないでください。
  
  Ｑ２　「買実行」キーを押しても、「手数料」が表示されません。
  　Ａ； 手数料の種類選択を行う表の「売買金額」と「手数料」欄に、
 　　　  手数料の記入が行われていますか。
              手数料欄に売買金額帯の抜けがあると、その金額帯の注文をした時、
              取引一覧表の手数料欄が空欄になります。

  Ｑ３　買入れ時に、注文数量より少なく成約してしまいました。
  　Ａ； 成約した株数に書き換えてから「買実行」キーを押してください。

  Ｑ４　買入れ時に、注文単価を途中で変更して、成約しました。
  　Ａ； 最初に成約した注文と、後で成約した注文の両方を、2行に分けて書いて
　　　 「買実行」キーを押してください。

  Ｑ５　売却時に、注文数量より少なく成約してしまいまいた。
  　Ａ； 成約した株数に書き換えてから「売実行」キーを押してください。

  Ｑ６　売却時に、売却単価を途中で変更して、成約しました。
  　Ａ； 最初に成約した売却と、後で成約した売却の両方を2行に分けて書いて
              おき、「売実行」キーを押してください。

  Ｑ７　買入れ時に、誤って成約の「はい」を押してしまったので、
 　　　 どこを修正すればよいですか。
 　Ａ；(1) 取引一覧表の、注文した該当銘柄の演算用セル「買FLG」欄に
　　　　　本日の日付が入っているのでこれを削除する。
 　　　(2)資産一覧表の、該当銘柄の取得単価が演算後の値になっているため、
 　　　　「取得単価」欄を、以前の取得単価に変更する。
 　　　(3)資金管理表の「現状資金」の欄が、買入れを行ったため少なくなって
　　　　　いるので、元の金額に変更する。
 
  Ｑ８　売却時に、誤って成約の「はい」を押してしまったので、
 　　　 どこを修正すればよいですか。
    Ａ；(1) 取引一覧表の、注文した該当銘柄の演算用セル「売FLG」欄に本日の
　　　　　日付が入っているのでこれを削除する。
 　　　(2)取引一覧表の、該当銘柄の「売却済株」の「買入時換算」の欄に、
 　　　　　買入時の金額が演算されて、記入されているのでこれを削除する。
 　　　(3)取引一覧表の、該当銘柄の「税込損益」の欄に演算された、損益額が
　　　　　記入されているので、これを削除する。また、手数料欄も削除する。
 　　　(4)資金管理表の「売却額」欄に、売却金額が加算されて入っているので、
 　　　 　これを元の金額に変更する。

  Ｑ９　追加注文時に証券会社の「平均取得額」と株富夢士の演算結果が
　　 　1円ぐらい違います。なぜでしょうか。どうすればよいですか。
　Ａ； 証券会社により、平均取得単価や税額の小数点以下の演算が
　　 　異なるためです。
 　　　株富夢士の資産一覧表の、現在地指標「取得単価」欄の取得金額を、
 　　　証券会社が演算した「取得額」に書き替えしてください。

 Ｑ10　株価収集を行ったら、突然EXCELのセルに意味不明の文字が入る様に
　　　 なり、データが表示できなくなりました。
　Ａ； Yahooファイナンスのホームページのデザインが変更されたために
　　　 情報収集ができなくなったためです。株富夢士のバージョンアップ版を
　　　 提供するまでお待ちください。

 
　　
　

EXCEL VBA あくせく サイトOpen しました。

EXCEL VBA のあれこれを記載していきたいと思っています。