幸せのちから

平凡的世界
看似平常实崎岖
成如容易却艰辛

VBA参考

Sub 辞書コードを取得()

Dim intCount_JISYO_CD As Integer
Dim intUUNo_JISYO_CD As Integer
intCount_JISYO_CD 
= 3
intUUNo_JISYO_CD 
= 2
'辞書コードをSheetn5に作成します、重複の場合スキップします
Do While Len(Worksheets("Sheet2").Cells(intCount_JISYO_CD, 13).Value) > 1
    
Set Obj = Worksheets("Sheet5").Cells.Find(Worksheets("Sheet2").Cells(intCount_JISYO_CD, 13).Value, LookAt:=xlWhole)
    
If Obj Is Nothing Then
        Worksheets(
"Sheet5").Cells(intUUNo_JISYO_CD, 1).Value = Worksheets("Sheet2").Cells(intCount_JISYO_CD, 13).Value
        intUUNo_JISYO_CD 
= intUUNo_JISYO_CD + 1
    
End If
    intCount_JISYO_CD 
= intCount_JISYO_CD + 1
Loop

'Sheet5に作成された辞書コードを昇準にソートします
'
Worksheets("Sheet5").Active
Worksheets("Sheet5").Range(Cells(11), Cells(intUUNo_JISYO_CD, 1)).Sort Key1:=Worksheets("Sheet5").Cells(11), order1:=xlAscending

End Sub

Sub 辞書コードが存在しない部品()

Dim intCount_JISYO_CD As Integer
Dim intNum_Record As Integer
intCount_JISYO_CD 
= 3
intNum_Record 
= 3
'辞書コードが存在しない部品をSheet6に作成します
Do While Len(Worksheets("Sheet2").Cells(intCount_JISYO_CD, 13).Value) > 1
    
If Worksheets("Sheet2").Cells(intCount_JISYO_CD, 13).Value = "C5416" Or Worksheets("Sheet2").Cells(intCount_JISYO_CD, 13).Value = "C5860" Then
    Worksheets(
"Sheet2").Cells(intCount_JISYO_CD, 13).EntireRow.Copy
    Worksheets(
"Sheet6").Cells(intNum_Record, 1).EntireRow.Insert
    intNum_Record 
= intNum_Record + 1
    
End If
    intCount_JISYO_CD 
= intCount_JISYO_CD + 1
Loop
End Sub

Sub 重複レコードを削除します()
Dim intRows As Integer
Dim intUniqueRows As Integer
intRows 
= 1
intUniqueRows 
= 1
Do While Len(Worksheets("Sheet7").Cells(intRows, 1).Value) > 1
    
Set Obj = Worksheets("Sheet9").Cells.Find(Worksheets("Sheet7").Cells(intRows, 1).Value, LookAt:=xlWhole)
    
If Obj Is Nothing Then
        Worksheets(
"Sheet7").Cells(intRows, 1).EntireRow.Copy
        Worksheets(
"Sheet9").Cells(intUniqueRows, 1).EntireRow.Insert
        intUniqueRows 
= intUniqueRows + 1
    
End If
    intRows 
= intRows + 1
Loop
End Sub

posted on 2011-03-24 17:09 Lucky 阅读(2583) 评论(0)  编辑  收藏 所属分类: 其他


只有注册用户登录后才能发表评论。


网站导航:
 
<2011年3月>
272812345
6789101112
13141516171819
20212223242526
272829303112
3456789

导航

随笔分类(125)

文章分类(5)

日本語

搜索

积分与排名

最新随笔

最新评论