AuctionPro – 페이지 22

IP를 찾아 변수에 저장

2016년 12월 19일 golgol 0

IP확인 소스

Excel VBA 활용하기

2016년 11월 30일 golgol 0

vb 배운거 써먹을 때가 많네요.


Sub Select1()
    For i = 1 To 54
   
        Dim sName1 As String
        Dim sName2 As String
        
        sName1 = Trim(Sheet1.Cells(i, 2))
        
        For j = 1 To 96            
            sName2 = Trim(Sheet2.Cells(j, 1))
            '//Debug.Print sName1, sName2
            If ((sName1 = sName2) And (sName1 = sName2)) Then
               Sheet1.Cells(i, 3) = IIf(Sheet2.Cells(j, 2) &gt; 0, Sheet2.Cells(j, 2), "")
               Sheet1.Cells(i, 4) = Sheet2.Cells(j, 3)
               Sheet1.Cells(i, 5) = IIf(Sheet2.Cells(j, 4) &gt; 0, Sheet2.Cells(j, 4), "")
               Sheet1.Cells(i, 6) = Sheet2.Cells(j, 5)
             Exit For
            End If
        Next j
    
    Next i
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

Sub Select1()

For i = 1 To 54

Dim sName1 As String

Dim sName2 As String

sName1 = Trim(Sheet1.Cells(i, 2))

For j = 1 To 96

sName2 = Trim(Sheet2.Cells(j, 1))

'//Debug.Print sName1, sName2

If ((sName1 = sName2) And (sName1 = sName2)) Then

Sheet1.Cells(i, 3) = IIf(Sheet2.Cells(j, 2) > 0, Sheet2.Cells(j, 2), "")

Sheet1.Cells(i, 4) = Sheet2.Cells(j, 3)

Sheet1.Cells(i, 5) = IIf(Sheet2.Cells(j, 4) > 0, Sheet2.Cells(j, 4), "")

Sheet1.Cells(i, 6) = Sheet2.Cells(j, 5)

Exit For

End If

Next j

Next i

End Sub


Sub Select1()
Dim price  As Integer
 
    For i = 1 To 13
   
        Dim sName1 As String
        Dim sName2 As String
        
        sName1 = Trim(Sheet1.Cells(i, 1))
        sName2 = Trim(Sheet1.Cells(i, 2))
        
        price = 0 '//초기값
        If (Trim(sName1) = "기타" And Trim(sName2) = "문자2") Then
          price = Sheet1.Cells(i, 3) + price
          Sheet1.Cells(15, 1) = price
        End If
        
     Next i
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Sub Select1()

Dim price As Integer

For i = 1 To 13

Dim sName1 As String

Dim sName2 As String

sName1 = Trim(Sheet1.Cells(i, 1))

sName2 = Trim(Sheet1.Cells(i, 2))

price = 0 '//초기값

If (Trim(sName1) = "기타" And Trim(sName2) = "문자2") Then

price = Sheet1.Cells(i, 3) + price

Sheet1.Cells(15, 1) = price

End If

Next i

End Sub

샘플 3


Sub Select1()
    
    For i = 2 To 29
   
        Dim s1 As Integer
        
        Dim s2 As Integer
                
        s1 = Trim(Sheet1.Cells(i, 1))
        
        For j = 2 To 4
        
            s2 = Trim(Sheet1.Cells(i, j))
            
            If (s1 <= s2) Then
             s1 = s2
             
             Sheet1.Cells(i, 6 + j) = s2
             
            End If
            
        'Debug.Print s2
        
        Next j
        
        Sheet1.Cells(i, 6) = s1
        
        'Debug.Print s1
        
    Next i
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

Sub Select1()

For i = 2 To 29

Dim s1 As Integer

Dim s2 As Integer

s1 = Trim(Sheet1.Cells(i, 1))

For j = 2 To 4

s2 = Trim(Sheet1.Cells(i, j))

If (s1 <= s2) Then

s1 = s2

Sheet1.Cells(i, 6 + j) = s2

End If

'Debug.Print s2

Next j

Sheet1.Cells(i, 6) = s1

'Debug.Print s1

Next i

End Sub

security – How to prevent Screen Capture in Android – Stack Overflow

2016년 11월 18일 golgol 0

Is it possible to prevent the screen recording in Android Application? I would like to develop an Android Secure Application. In that I need to […]

Remove BrowserModifier:Win32/SupTab 간단하게 제거 하기

2016년 11월 15일 golgol 0

프로그램 추가 삭제에서 의심스러운 프로그램 제거 (OnlineMapFinder Internet Explorer Homepage and New Tab)

How to Fix the “Windows Installer Service could not be accessed” Error in Windows 7

2016년 11월 07일 golgol 0

%windir%\system32\msiexec.exe /regserver 소스: How to Fix the “Windows Installer Service could not be accessed” Error in Windows 7

CAPTCHA – 위키백과, 우리 모두의 백과사전

2016년 10월 13일 golgol 0

소스: CAPTCHA – 위키백과, 우리 모두의 백과사전 http://gnujava.com/board/article_view.jsp?board_no=11&article_no=5634 http://www.findbestopensource.com/tagged/captcha?fq=Java

Receiver 4.5 for Windows – Citrix

2016년 10월 11일 golgol 0

Receiver for Windows 4.3.100 for Windows product software 소스: Receiver 4.5 for Windows – Citrix 연결프로그램이 풀리는 경우 : ICA 파일이 열리지 않는 경우가 발생 […]

모든 버전용 Adobe Acrobat Reader DC 설치

2016년 10월 11일 golgol 0

Download free Adobe Acrobat Reader DC software for your Windows, Mac OS and Android devices to view, print, and comment on PDF documents. 소스: 모든 […]

현금영수증전용카드 국세청에서 발급받기

2016년 08월 02일 golgol 0

sever2008에서 SMTP 설치하기

2016년 08월 02일 golgol 0

sever2008에서 SMTP 설치하기 오류 코드 CDO.Message.1 오류 ‘80040220’ “SendUsing” 구성 값이 잘못되었습니다. /ok.asp, 줄 225 IIS 7.5 에서 asp 소스 상에 Configuration 를 추가 해야 […]

구글 설문조사 사용하기

2016년 07월 14일 golgol 0

구글에서 제공하는 온라인 설문지로 간단하게 만들고 메일, 링크, iframe 형태로 제공할 수 있습니다.

AxBase : mdb 파일 열기

2016년 07월 14일 golgol 0

AxBase is an Open source MDB / SQL Server Database viewer and editor. You can view & edit the tables (+ field descriptions) and execute […]

outlook 보낸편지함에 메일 저장이 안될때

2016년 06월 29일 golgol 0

도구->옵션-> / 기본설정/전자 메일 옵션 메일 주고 받기 오류인 경우

Embedding a Chromium browser in an MFC application – CodeProject

2016년 06월 17일 golgol 0

소스: Embedding a Chromium browser in an MFC application – CodeProject

Valid Card Types — EAN Developer Site

2016년 05월 26일 golgol 0

EAN Hotel API documentation and resources 소스: Valid Card Types — EAN Developer Site

Complete Virtual Mail Server/SSL Certificates/ko – Gentoo Wiki

2016년 04월 14일 golgol 0

소스: Complete Virtual Mail Server/SSL Certificates/ko – Gentoo Wiki

Apache : CSR 생성 및 SSL 인증서 적용 – HanbiroSSL

2016년 04월 14일 golgol 0

소스: Apache : CSR 생성 및 SSL 인증서 적용 – HanbiroSSL

The Perfect Server – Ubuntu 14.04 (Apache2, PHP, MySQL, PureFTPD, BIND, Dovecot, ISPConfig 3) – Page 6 – Page 6

2016년 04월 06일 golgol 0

The Perfect Server – Ubuntu 14.04 (Apache2, PHP, MySQL, PureFTPD, BIND, Dovecot, ISPConfig 3) This tutorial shows how to prepare an Ubuntu 14.04 (Tru… – […]

blog.anyx.net :: 스팸어세신

2016년 03월 22일 golgol 0

Spamassassin 차 례 1. 스팸어세신 이란 2. 스팸어세신 설치 3. 스팸어세신 설정 4. 스팸어세신 운영 5. 스팸어세신 룰 설정 스팸어세신 이란 어세신(assassin)의 사전적 의미 : […]

윈도우 7 32비트 버전에서 4GB 이상 메모리 사용하기 – snoopybox

2016년 03월 21일 golgol 0

어제 아이폰용 MP4 변환 스크립트에 자막을 추가한다고 너무 고생해서 오늘은 하루 쉬고 싶지만, 그래도 간단한거 하나 올립니다. 대신 이 글은 예전에 포스팅했던 내용을 재탕하는 것입니다. […]