전체 글(72)
-
[엑셀 매크로] 일정한 간격으로 증/감소 원 그리기
일정한 간격으로 증가/ 감소하는 원을 그리기 실행 이미지 / 실행 화면 일정한 간격으로 증 / 감소 원 그리기 코드아래 코드 Option Explicit Public Sub setting() Dim tmp As Single Dim i As Integer Dim left As Single Dim top As Single Dim diameter As Single tmp = 10 For i = 3 To 8 If i = 3 Then left = 150 + i top = 150 + i diameter = i * tmp Else left = left + (diameter - (i * tmp)) / 2 top = top + (diameter - (i * tmp)) / 2 diameter = i * tmp End If..
2021.01.23 -
[C#] CAD Fillet 기능 구현 예시 [도형의 모서리를 둥글게 하는 작업]
사용한 Visual Studio 환경 더보기 Visual Studio Community 2019 vs_community__468244237.1605342870 CAD의 Fillet 기능 : 도형의 꼭지점을 반지름만큼 둥글게 하는 작업 C#으로 구현하기 C# Code using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; namespace WindowsFormsApp1 { public..
2021.01.18 -
[C#] 마우스를 올려놨을 때 이미지를 미리 볼 수 있는 기능 예시 [Tooltip/Image]
사용한 Visual Studio 환경 더보기 Visual Studio Community 2019 vs_community__468244237.1605342870 Label에 마우스를 올려놓으면, 예시 이미지가 뜨는 기능 이미지는 귀여운 죠르디 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; namespace WindowsFormsApp1 { public partial class..
2021.01.18 -
1강 구석기와 신석기 간단 요약
구석기 (중석기) 신석기 식 채집, 수렵 -> 이동생활 기온 상승 -> 해수면 상승 원래 구석기에는 맘모스같은 것들이 있었으나, 작고 날랜 짐승 으로 진화 따라서 이음도구(슴베 찌르기) 사용 채집,수렵 + 농경(밭) -> 신석기 혁명, 정착 생활 의 가죽옷 ( 나뭇잎 옷 등. 아주 열악) 원시적 수공업(직조기술) -> 옷, 그물 = 뼈바늘, 가락바퀴 주 동굴, 막집 움집. 강가, 해안가 부산 동산동(패총) 서울 암사동 도구 뗀석기 (주먹도끼) 그냥 돌을 바닥에다가 팍 찧어서 뗀거.. 간석기 -> 석제 농기구 토기 : 이른 민무늬, 빗살무늬 토기 사회 무리사회, 평등사회 씨족사회 (부족) 부족(A씨족 -- 족외혼 -- B씨족) 평등사회 신앙 장례풍습 -> 흥수 아이(국화꽃) 흥수라는 사람이 발견해서~ 애니..
2020.12.21 -
2020년 12월 21일 일기
잊혀뒀던 Tistory 블로그 주소를 찾았다.🤣 열심히 운영해야겠다..😀
2020.12.21 -
[사무용 엑셀 매크로] 자동으로 날짜 채우기, 색상 변경
날짜 채우기 버튼을 누르면 입력한 날짜 기준으로 6개월 후, 9개월 후 날짜가 채워지는 VBA 매크로 기능 입니다. Sub 날짜채우기() Dim col As Long, i As Long Dim dt As Date col = ActiveSheet.Range("A4").CurrentRegion.Rows.Count For i = 0 To col - 1 dt = Range("A4").Offset(i, 0) Range("A4").Offset(i, 1) = DateAdd("m", 6, dt) Range("A4").Offset(i, 1).Interior.Color = RGB(243, 248, 52) Range("A4").Offset(i, 2) = DateAdd("m", 9, dt) Range("A4").Offset(..
2020.06.15