下記のような処理を実行すると応答なしとフリーズになってしまいます。
解決方法について教えてください
やりたいこと ：8列目にコードが並んでいて、重複コード（2回目以降）のものは赤色にする
困っていること：実行すると応答なしでフリーズしてしまう
→変数の上限が20000ではなく5000だと問題なく動く
Sub (1)()
Dim i As Long
For i = 3 To 20000
If Application.WorksheetFunction.CountIf(Range(Cells(3, 8), Cells(i, 8)), Cells(i, 8)) > 1 Then
Cells(i, 8).Font.ColorIndex = 3
End If
Next i
End Sub
ファイルを探すプログラムをネット頂き テストしたのですが
c:\ のみ 動かず c:\*** は そのフォルダーから下を探します
e:\ は 全てのフォルダーを探します。
ＷＩＮ８ ですが どこで間違ってるのでしょうか？
よろしくどうぞ
Option Explicit
Private g_dteDate As Date
Private g_strEXT As String
'参照設定 M-Scripting.Runtime
Cells(1, 2).Value に 探すアドレス 記載 c:\ e:\ c:\*** など
Sub Sample_FileSearch2()
Dim vntF As Variant
Dim objFSO As FileSystemObject
Dim dteDate As Date
Dim GYO As Long
Dim cntFound As Long
Set objFSO = New FileSystemObject ' FSO
Rows("5:65536").ClearContents
GYO = 4
’ g_dteDate = DateAdd("m", Cells(3, 2).Value * -1, Date) 更新 不要
g_strEXT = UCase(Trim(Cells(2, 2).Value))
' ルートフォルダから探索開始
Call Sample_FileSearch2_SUB(objFSO, _
objFSO.GetFolder(Trim(Cells(1, 2).Value)), GYO, cntFound)
Set objFSO = Nothing
' 処理結果の表示
If cntFound = 0 Then
MsgBox "見つかりません"
Else
MsgBox cntFound & "個見つかりました"
End If
End Sub
'''*******************************************************************************
''' ファイル探索処理(再帰動作)
'''*******************************************************************************
Private Sub Sample_FileSearch2_SUB(objFSO As FileSystemObject, _
ByVal objFolder As Folder, _
GYO As Long, cntFound As Long)
Dim objFolder2 As Folder
Dim objFile As File
' サブフォルダの探索
For Each objFolder2 In objFolder.SubFolders
' サブフォルダ個々の探索(再帰動作)
Call Sample_FileSearch2_SUB(objFSO, objFolder2, GYO, cntFound)
Next objFolder2
' このフォルダ内のファイルの探索
For Each objFile In objFolder.Files
' ここから条件判断
With objFile
If (UCase(objFSO.GetBaseName(.Path)) = g_strEXT) Then
GYO = GYO + 1
Cells(GYO, 1).Value = .Name
Cells(GYO, 2).Value = .DateLastModified
Cells(GYO, 3).Value = _
Left(.Path, Len(.Path) - Len(.Name) - 1)
cntFound = cntFound + 1
End If
End With
Next objFile
End Sub
dim a as string
dim b as string
dim c as string
dim d as string
dim e as string
dim f as string
dim g as string
dim h as string
dim i as string
a = "○○"
b = "○○"
c = "○○"
d = "○○"
e = "○○"
f = "○○"
g = "○○"
h = "○○"
i = "○○"
上記のような形でたくさん宣言しているのですが、
実際はもっとあり、これだととても長いコードになってしまいます(・・;)
なんとか簡略化したいとは考えたのですがよい方法が見つからず
皆さんよろしくお願いいたします_(_^_)_
OS開発をしています。
たとえば、
typedef struct test{
int t1;
int t2;
int t3;
int t4
int t5;
}test;
という構造体があったとして、
----アプリケーション----
void main(){
test data;
data.t1=100;
data.t5=200;
testint(data);
}
----ライブラリ(アセンブリ)----
_testint:
PUSH EBX
MOV EBX,ESP
INT 0x52
POP EBX
RET
----OS側----
int API(int edi, int esi, int ebp, int esp, int ebx, int edx, int ecx, int eax){
test data;
data= *(((int *)ebx) + ?);
… // ↑
}
というプログラムのとき、
?には、どのような数字を入れれば、
OS側のdataにアプリ側のdataが代入できるでしょうか。
test構造体のサイズは、
20Byteです。
長い質問ですが、回答お願いします。
