DELLATEX 통몰드 천연라텍스

집에서 사용하는 접이식 침대의 매트리스가 불편하여 검색하다가
델라텍스 통몰드 천연라텍스를 구입하였다.
구입한 제품은 사이즈: 7.5cm싱글, 색상: 마린블루이다.
디자인은 제품사진에서 본 것보다 색상도 선명하고 세련되고 더 좋은 것 같다.
기능은 구입하고 3일째 사용해 보았는데, 확실히 잠자리가 편하다.
가격도 사용해보니 저렴하거나 적당하다는 생각이 든다.

라텍스의 오염방지를 위해 지퍼형 방수내피를 별도로 구매하였다.

NEPA 알라스카 이벤트 응모

NEPA ALASKA DOWN CF 시청하기

나는 올 겨울 #캐리와 #불국사에서 #라이트베이지 알라스카를 입을거야.

엑셀 규칙적인 간격의 셀 선택하기

https://support.microsoft.com/en-us/kb/213438

How to programmatically select every nth row in a range in Excel

Note To change the number of rows between each selected row, change the value of the RowsBetween variable; for example, if you want to select every fourth row, set RowsBetween to 4.

1. Start Excel, and then press ALT+F11 to start the Visual Basic Editor.
2. On the Insert menu, click Module.
3. In the module sheet, type or paste the following sample code:

   
   Sub SelectEveryNthRow()
       ' Initialize ColsSelection equal to the number of columns in the
       ' selection.
       ColsSelection = Selection.Columns.Count
       ' Initialize RowsSelection equal to the number of rows in your
       ' selection.
       RowsSelection = Selection.Rows.Count
       ' Initialize RowsBetween equal to three.
       RowsBetween = 3
       ' Initialize Diff equal to one row less than the first row number of
       ' the selection.
       Diff = Selection.Row - 1
       ' Resize the selection to be 1 column wide and the same number of
       ' rows long as the initial selection.
       Selection.Resize(RowsSelection, 1).Select
       ' Resize the selection to be every third row and the same number of
       ' columns wide as the original selection.
       Set FinalRange = Selection. _
          Offset(RowsBetween - 1, 0).Resize(1,ColsSelection)
       ' Loop through each cell in the selection.
       For Each xCell In Selection
           ' If the row number is a multiple of 3, then . . .
           If xCell.Row Mod RowsBetween = Diff Then
               ' ...reset FinalRange to include the union of the current
               ' FinalRange and the same number of columns.
               Set FinalRange = Application.Union _
                   (FinalRange, xCell.Resize(1,ColsSelection))
           ' End check.
           End If
       ' Iterate loop.
       Next xCell
       ' Select the requested cells in the range.
       FinalRange.Select
   End Sub
        

4. Press ALT+F11 to return to Excel.
5. Type data in cells A1:E9.
6. Select cells A1:E9.
7. On the Tools menu, point to Macro, and then click Macros.
8. In the Macro name list, click SelectEveryNthRow, and then click Run. Note that rows three, six, and nine are selected.

블로그 연습입니다.

블로그 연습입니다.