Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2032 / 76734

←次へ　｜　前へ→


	【80346】Re:ListView：行がどんどん増えてしまう

愛沢 - 19/1/28(月) 6:51 -


	引用なし

	パスワード

※行数削除の為　Noと名前のみになっておりますが、Publicの数だけデータがあります。
'========================================================
'標準モジュール
Public No As Long
Public 名前 As String
Public レベル As Long
Public 貢献度 As Long
Public In率 As String
Public 最大戦闘力 As Long
Public 新規登録日 As String
Public 最終更新日 As String
Public 備考 As String
Public CNT1 As Long
Public CNT2 As Long
Public CNT3 As Long
Public LastCNT1 As Long
Public LastCNT2 As Long
Public WS1 As Worksheet
Option Explicit
'-------------------------------------------------------------------
Sub auto_open()
　　Call 初期処理
　　団員一覧.Show
End Sub

Sub 初期処理()
　　Set WS1 = ThisWorkbook.Worksheets("団員一覧")
　　With 団員一覧.ListView1
　　　　.View = lvwReport　　　　　 ''表示
　　　　.LabelEdit = lvwManual　　　''ラベルの編集
　　　　.HideSelection = False　　　''選択の自動解除
　　　　.AllowColumnReorder = True　''列幅の変更を許可
　　　　.FullRowSelect = True　　　 ''行全体を選択
　　　　.Gridlines = True　　　　　 ''グリッド線
　　　　'列見出し
　　　　.ColumnHeaders.Add , "No", "No", 50
　　　　.ColumnHeaders.Add , "名前", "名前", 50
　　End With
End Sub

Sub 団員一覧表示処理()
　　LastCNT1 = WS1.Cells(Rows.Count, 1).End(xlUp).Row
　　CNT1 = 2
　　　　団員一覧.ListView1.ListItems.Clear
　　　　For CNT2 = 1 To 99
　　　　　　If CNT1 <= LastCNT1 Then
　　　　　　　　If Cells(CNT1, 2) = "" Then
　　　　　　　　　　GoTo 10
　　　　　　　　Else
　　　　　　　　　　Call 団員一覧書込処理
　　　　　　　　　　CNT1 = CNT1 + 1
　　　　　　　　End If
　　　　　　Else
　　　　　　　　GoTo 10
　　　　　　End If
　　　　Next
10
End Sub

Sub 団員一覧書込処理()
　　With 団員一覧.ListView1.ListItems.Item
　　　　.Text = Cells(CNT1, 1)
　　　　.SubItems(1) = Cells(CNT1, 2)
　　End With
End Sub

Sub 団員登録表示処理()
　　With 団員登録
　　　　.TextBox1 = No
　　　　.TextBox2 = 名前
　　End With
End Sub

Sub 団員登録更新処理()
　　With 団員登録
　　　　No = .TextBox1
　　　　名前 = .TextBox2
　　End With
　　
　　With 団員一覧.ListView1.ListItem
　　　　.Text = No
　　　　.SubItems(1) = 名前
　　End With
End Sub

Sub 更新チェック()
'未着手
End Sub

'========================================================
'団員一覧フォーム
Private Sub CommandButton2_Click()
　　Unload Me
End Sub

Private Sub CommandButton3_Click()
　　Call 団員一覧表示処理
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
　　No = Item
　　名前 = Item.SubItems(1)
　　Call 団員登録表示処理
　　団員登録.Show
End Sub

'========================================================
'団員登録フォーム
Private Sub CommandButton2_Click()
'　　Call 更新チェック
　　Unload Me
End Sub

Private Sub CommandButton3_Click()
　　Call 団員登録更新処理
End Sub

Private Sub TextBox7_Change()
　　TextBox7.Locked = True
End Sub
'========================================================

11 hits

▼

【80339】ListView：行がどんどん増えてしまう 愛沢 19/1/27(日) 11:04