메모

Private Sub CommandButton1_Click() Dim cBar As CommandBar Set cBar = Application.CommandBars.Add(Name:="ButtonMenu", Position:=msoBarPopup, Temporary:=True) ' 새로운 메뉴를 추가합니다. Dim cCtrl As CommandBarControl Set cCtrl = cBar.Controls.Add(Type:=msoControlPopup, Temporary:=True) cCtrl.Caption = "새로운 메뉴" cCtrl.Tag = "NewMenu" ' 새로운 메뉴에 하위 메뉴를 추가합니다. Dim subCtrl As CommandBarControl Set subCtrl = cCtrl..

s는 해산물땡초오일파스타를 별로 안좋아함 j는 의외로 버섯베이컨크림로조트를 잘먹었음 d는 그럭저럭 잘먹었음

[ 제 목 ] 수용되어 받은 손실보상금을 영업권으로 보아 과세한 처분은 부당함. [ 요 지 ] 생수공장이 ○○공사에 수용됨에 따른 보상금은 영업권이 아니라 손실보상금이므로 부가가치세를 과세한 처분은 부당함 [ 회 신 ] 주문 ○○세무서장이 99. 8. 1. 청구법인에게 경정·고지한 97년 2기분 부가가치세 143,631,85 0원의처분은 이를 취소한다. 이유 1. 처분내용 청구법인은 먹는 물을 제조하는 업체로서 ○○도 ○○시 ○○면 ○○리 ○○번지에 소재한 ○○공장(이하 “쟁점공장”이라 한다)이 ○○공사에서 시행하는 ○○지구(4차) 택지개발사업에 편입됨으로 인하여, 청구법인의 공장건물, 지장물 및 영업권 등에 대한 보상금 저렴 등의 사유로 ○○위원회에 수용재결신청하여 손실보상금으로 2,114,479,60..

[상증] [상속인 명의로 입금한 금액을 사전증여재산으로 본 처분의 당부] [상증, 조심2008서2844 , 2008.11.24] 【재결요지】 상속인들 명의로 분산되어 입금한 사실이 청구인들의 예금계좌에 명백하게 나타나고 있어 사전증여라고 할 것이고, 또한, 그 용도가 객관적으로 명백하므로 추정상속재산에 해당되지 아니함 【관련법령】 상속세법 및 증여세법 제2조【증여세과세대상】 【주문】 심판청구를 기각합니다. 【이유】 1. 처분개요 가. 청구인들은 공동상속인들은 청구인들의 아버지 김○일 (피상속인)이 2006.2.24 사망함에 따라 2006.8.23 상속재산가액을 2,919,497천원으로 하여 2006년도분 상속세 68,667천원을 신고납부하였다. 나. 처분청은 상속세 조사를 실시하여 피상속인이 상속개시일 ..

Private Sub cmd_popupmenu_Click() Dim ctrl0, ctrl1, ctrl2, ctrl3 Application.ScreenUpdating = False On Error Resume Next Application.CommandBars("iMenu").Delete Set ctrl0 = Application.CommandBars.Add(Name:="iMenu", Position:=msoBarPopup) Set ctrl1 = ctrl0.Controls.Add(1) With ctrl1 .Caption = "인쇄" .FaceId = 31 .OnAction = "print" End With Set ctrl2 = ctrl0.Controls.Add(1) With ctrl2 .Caption = ..

import pandas_datareader as pdr import pandas as pd import numpy as np import matplotlib.pyplot as plt from statsmodels.tsa.arima.model import ARIMA # Set the start and end dates for the exchange rate data start_date = '2000-01-01' end_date = '2022-02-22' # Get exchange rate data from FRED using pandas_datareader df = pdr.get_data_fred('DEXKOUS', start_date, end_date) # Split the data into train..

Sub CreatePopupMenu() Dim cbrMenu As CommandBar Dim cbcButton1 As CommandBarButton Dim cbcButton2 As CommandBarButton 'Create a new command bar menu Set cbrMenu = Application.CommandBars.Add(Name:="MyPopupMenu", Position:=msoBarPopup) cbrMenu.Visible = True 'Add buttons to the menu Set cbcButton1 = cbrMenu.Controls.Add(Type:=msoControlButton) cbcButton1.Caption = "Button 1" cbcButton1.FaceId = 7..

Sub ShowSheetListForm() Dim myForm As Object 'Declare a variable to hold the UserForm object Dim ws As Worksheet 'Declare a variable to hold the Worksheet object 'Create a new UserForm Set myForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm) 'Set properties of the UserForm With myForm .Properties("Caption") = "Select a sheet" 'Set the caption of the UserForm .Properties("Width") = 3..

Sub SwapSelectedCells() Dim tempValue As Variant Dim cellA As Range, cellB As Range 'Check if exactly two cells are selected If Selection.Count 2 Then MsgBox "Please select exactly two cells to swap.", vbInformation, "Selection Error" Exit Sub End If 'Assign the selected cells to their respective variables Set cellA = Selection(1) Set cellB = Selection(2) 'Store the value of cellA in a temporary..

Sub MergeWorkbooksWithDialog() Dim MyPath As String, FilesInPath As String Dim MyFiles() As String Dim SourceRcount As Long, FNum As Long Dim mybook As Workbook, BaseWks As Worksheet Dim sourceRange As Range, destrange As Range Dim rnum As Long, CalcMode As Long Dim targetFile As Variant 'Show the Open dialog box to select the target file targetFile = Application.GetOpenFilename("Excel Files (*...